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..

//해당 TABLE 인덱스 조회 SP_HELPINDEX [TABLE_NAME] //해당 TABLE에 COLUMN1, ... 의 인덱스 생성 CREATE INDEX [INDEX_NAME] ON [TABLE_NAME](COLUMN_NAME1,COLUMN_NAME2...) //TABLE의 INDEX 삭제 DROP INDEX [TABLE_NAME].[INDEX_NAME]

문제 - 터미널에서 git 명령어 사용 시 xcrun: error 에러 발생. 원인 - 주로 맥os 업데이트 시 발생 해결 - xcode-select --install 명령어로 Xcode Command Line Tools 재설치.

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 --xp_cmdshell 활성화 EXEC sp_configure 'show advanced option',1 go reconfigure; go exec sp_configure 'xp_cmdshell',1 go reconfigure; go exec xp_cmdshell 'net use P: \\127.0.0.1\dir pa$$word /USER:127.0.0.1\administrator' --네트워크 드라이브 연결 --xp_cmdshell 비활성화 exec sp_configure 'xp_cmdshell',0 go reconfigure; go EXEC s..

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 기본적으로 많이쓰는 커서 모양 여러 개가 있는데 프로그램으로 확인해보자.