Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 팁&트릭
Delphi Programming Tip&Tricks
[262] 델파이 메세지 한글화 하기
civilian [civilian] 7141 읽음    2008-12-09 06:07
델파이에서 사용하는 메세지들은

consts.pas 에 선언되어있습니다.

이 파일은 rtl.bpl에 포함되는 유닛이므로 사용자가 재정의할 수 없습니다만
후킹을 이용하면 간단히 해결할 수 있습니다.

이하 코드


unit LanguageControl;

interface

implementation

uses
  Windows, Consts;

// 리소스 문자열에 새 값을 할당한다
procedure HookResourceString(ResStringRec: pResStringRec; NewStr: pChar) ;
var
  OldProtect: DWORD;
begin
  VirtualProtect(ResStringRec, SizeOf(ResStringRec^), PAGE_EXECUTE_READWRITE, @OldProtect) ;
  ResStringRec^.Identifier := Integer(NewStr) ;
  VirtualProtect(ResStringRec, SizeOf(ResStringRec^), OldProtect, @OldProtect) ;
end;

initialization
  // consts.pas에 선언된 문자 리소스들을 한국어로 번역한다.

  HookResourceString(@SOpenFileTitle , '열기') ;
  HookResourceString(@SCantWriteResourceStreamError , '읽기 전용 리소스 스트림에 쓸 수 없습니다') ;
  ...
  나머지는 ...??
  ...
end.



출처 : delphi.about.com
양용성.우석아빠 [ysyang]   2008-12-09 13:41 X
좋은 자료 감사합니다.
DrK [whitekid]   2008-12-10 12:56 X
오.. 이런 방법이 있었군요.. 감샤~

+ -

관련 글 리스트
262 델파이 메세지 한글화 하기 civilian 7141 2008/12/09
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.