본문 바로가기

Application/Delphi Lecture126

Regstry 등록하기 먼저 TRegistry 라는 Class가 있습니다. Var Reg : TRegistry; 라고 선언을 해주고 나서... 그 담에.. Reg := TRegistry.Create; 로 생성해 주면 사용할 준비는 완료.. 실행에서 regedit 해 보시면 몇개 보이는 것들이.. rootkey 입니다.. 여기서 어떤 rootkey쪽으로 갈것이냐를 먼저 정해줘야죠... reg.Rootkey := HKEY_CURRENT_USER; 요렇게 해주면 HKEY_CURRENT_USER 밑의 갈래에서 이루어지죠.. reg.OpenKey('\SOFTWARE\',TRUE) ( true 는 \software\라는 것이 존재 하지 않을 경우 만들어서 연 다는 것이죠 ^^) 해주면 \SOFTWARE\이 열리는 것이죠 ^^... 그러면.. 2008. 8. 13.
델파이 관련 몇가지 Tip [TMemo Component] 현재 라인번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄이 몇 번째 줄인지를 리턴한다. Label1.Caption := IntToStr(GetCurrLine(Memo1)); function GetCurrLine(Memo : TMemo) : integer; begin Result := Memo.Perform(EM_LINEFROMCHAR, Memo.SelStart, 0); end; [TMemo Component] 현재 컬럼번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄에서 몇 번째 컬럼인지를 리턴한다. Label1.Caption := IntToStr(GetCurrCul(Memo1)); function GetCurrCul(Memo : TMemo)) : in.. 2008. 8. 13.
keyboard, mouse 버퍼 clear //Keyboard Buffer를 Clear한다. procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; //Mouse Buffer를 Clear한다. procedure EmptyMouseQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do; end; 2008. 8. 13.
프로젝트의 실행파일을 UPX로 압축하는 메뉴추가하기 델파이의 Tools메뉴에 upx를 추가하고 Parameters에 $EXENANE 이라고 쓰면 현재 작업중인 프로젝트의 실행파일이나 DLL파일을 upx가 압축을 해준다. 그러나 upx.exe는 파일경로에 공백이 있으면 안된다. 공백이 있을경우에는 -- 와 "를 이용해서 upx.exe -- "C:\Program Files\xxxx.exe" 와 같이 해줘야한다. 그런데 델파이의 Tools메뉴의 Parameters에 들어가는 매크로를 사용할때 매크로 앞에 다른 문자를 넣을수 없다. 즉, -- "$EXENAME" 이렇게 사용할수는 없다. upx로 압축할때는 exe의 경로에 공백이 있으면 안된다. 이런 경우 배치파일을 이용하면 조금이나마 도움이 된다... 1. upx가 없는 사람은 upx.exe를 다운로드한다. 2.. 2008. 8. 13.

티스토리툴바