pierrot_98

uses ..., Registry; //Registry 추가 type TForm1 = class(TForm) ... ... procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private function SaveToReg(root: HKEY; path, name, value: string): Boolean; function ReadToReg(root: HKEY; path, name: String; var value: string): Boolean; public end; ... ... procedure TForm1.Button1Click(Sender: TObject); begin // if SaveToReg(H..

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 uses .., DBXJSON; //DBXJSON 추가 private function funcSetJsonObject(psJsonTxT : String) : TJsonObject; function funcGetJs..

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 uese IdHTTP; //추가 ... procedure TfrmSelvas.btnSaveClick(Sender: TObject); var IDhttp: TIdHTTP; TRequest : TstringStream; TOut : TstringStream; URL, sString : String; begin try IDhttp := TIdHTTP.Create(nil); URL := 'http://localhost:8080/pierrot/api'; TRequest := TSt..

12345678910111213141516171819202122232425262728var bDisplayFlg : Boolean; iAct : Integer;begin //모니터가 그냥 1개라면 보조 모니터로 if Screen.MonitorCount = 1 then bDisplayFlg := False; if bDisplayFlg then begin //주모니터 //화면 전체크기 SetBounds(Screen.Monitors[1].Left,Screen.Monitors[1].Top, Screen.Monitors[1].Width,Screen.Monitors[1].Height); end else begin //보조모니터 //화면 전체크기 SetBounds(Screen.Monitors[0].Left,Scree..

1 2 3 4 5 6 7 8 procedure Form1.Button1Click(Sender: TObject); begin // 모래시계 모양 Screen.Cursor:=crHourGlass; // 정상 커서 Screen.Cursor:=crDefault; end; Colored by Color Scripter cs 기본적으로 많이쓰는 커서 모양 여러 개가 있는데 프로그램으로 확인해보자.

1 2 3 4 5 6 7 8 9 10 11 uses Winapi.ShellAPI; ... procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(handle, 'open', 'Chrome', 'http://www.pierrot-98.tistory.com', nil, SW_SHOWNORMAL ); ShellExecute( handle , 'open', 'http://www.pierrot-98.tistory.com', nil, nil, SW_SHOWNORMAL ); end; Colored by Color Scripter cs //새로운 인터넷 창을 열기 ShellExecute(handle, 'open', 'Chrome', 'http://www...

1 2 if not DirectoryExists('C:\pierrot') then ForceDirectories('C:\pierrot'); cs 해당 폴더가 없으면 폴더 생성..

[색상] 델파이 Color는 RGB 색상에서 거꾸로 돌리고 $00을 붙여준다 EX) RGB(FFFF00) 노랑색 = 델파이 $00+00FFFF