젠틀캣의 블로그이야기

Component -> Install Packages 메뉴에서 Bin 디렉토리에 dclqrt70.bpl 파일을 Add

자동업데이트 기능등을 강제로 넣어야 할때 실행파일에 파라미터를 넣어주어야 반드시 업데이트를 거쳐야 할수 있도록 해줄수 있다. 본프로그램 procedure TfrmIndex.FormCreate(Sender: TObject); var path : string; begin Application.Initialize; if (System.ParamStr(1) '/first') then //파라미터 값은 first로 지정해주었다. begin ShowMessage('다른 경로로 프로그램을 실행했습니다. 프로그램을 종료합니다.'); Application.Terminate; end; Application.Run; end; 업데이트부 procedure TUpdateForm.ExitProg ; Var BRoot : Stri..

Procedure SleepProc(milisecond : DWORD); var maxloop : Integer; iindex : integer; begin maxloop := (milisecond div 50)+(milisecond mod 50); for iindex := 1 to maxloop do begin if Application.Terminated then begin Break; Exit; Application.Terminate; end; Sleep(50); Application.ProcessMessages; end; end; 사용예 : SleepProc(50);

oriName : string destname : string CopyFile(PChar(oriName),PChar(destName),false);

//* 파일 삭제 함수 - uses절에 ShellApi추가 //* 사용법 MinDeleteFile(ExtractFilePath(Application.exeName)+'tmp\*.jpg',true); function MinDeleteFile(const DirName : string; const UseRecycleBin: Boolean): Boolean; var SHFileOpStruct: TSHFileOpStruct; DirBuf: array [0..255] of char; Directory: string; begin try Directory := ExcludeTrailingPathDelimiter(DirName); Fillchar(SHFileOpStruct, sizeof(SHFileOpStruct), 0..

grid.SelectRows(1,1); //grid.OnClick(Self); GridClick(sender);

if not(Key in ['0'..'9']) then begin Key := #0; end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var CurWebrowser: IWebBrowser; TopWebBrowser: IWebBrowser; Document: OleVariant; WindowName: string; begin CurWebrowser := pDisp as IWebBrowser; TopWebBrowser := (Sender as TWebBrowser).DefaultInterface; if CurWebrowser = TopWebBrowser then ShowMessage('Complete document was loaded') else ..

http://www.swissdelphicenter.ch/torry/showcode.php?id=1055 Problem: Web forms that have multiline text boxes and/or Submit buttons do not respond to the Enter key when displayed on a TWebbrowser. Also when browsing local folders, some keys don't respond. How to solve it: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCt..

AdvStringGrid.FontColors[0, 0] := clRed; AdvStringGrid.Colors[0, 0] := clRed;