본문 바로가기

WaitForSingleObject

Delphi/꿀팁 외부 프로그램 실행하고 기다리기 uses .., Winapi.ShellAPI; var SEInfo: TShellExecuteInfo; begin //초기화 //D2009이상 SEInfo := Default(TShellExecuteInfo); //D2009미만 FillChar(SEInfo, SizeOf(TShellExecuteInfo), #0); SEInfo.cbSize := SizeOf(TShellExecuteInfo); SEInfo.fMask := SEE_MASK_NOCLOSEPROCESS; SEInfo.lpVerb := 'Open'; SEInfo.lpFile := PChar('실행할 파일'); SEInfo.lpParameters := PChar(''); if ShellExecuteEX(@SEInfo) then WaitForSingl..
Delphi/끄적이기 procedure를 Thread로 호출하기 var .., System.Classes;type IMyThread = interface function Handle: THandle; procedure Start; end; TMyThread = class(TInterfacedObject, IMyThread) private Thread : TThread; FHandle : THandle; public function Handle: THandle; procedure Start; constructor Create(AProc: TProc; isStart: Boolean = True); destructor Destroy; override; end;{ TAutoThread } constructor TMyThread.Create(AProc: TProc; isSta..

티스토리툴바