분류 전체보기590 시작 프로그램 등록 uses Registry; procedure ----------------- var Reg : TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true); Reg.WriteString('Test', Application.ExeName); Reg.CloseKey; end; 레지스트리 'Software\Microsoft\Windows\CurrentVersion\Run 여기다가 등록시키면 될겁니다..허접의 답변입니다.. 2008. 8. 13. delphi 7 에서 TServerSocket 사용하기 This code explains the basic us of the TClientSocket and TServerSocket components of Delphi. If you can't find these components you need to add the dclsockets package to the IDE. To do this go to Component | Install Packages | Add (/bin/dclsockets70.bpl). It is a basic Chat application. 2008. 8. 13. 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. 이전 1 ··· 122 123 124 125 126 127 128 ··· 148 다음