Delphi가 외부 프로그램을 호출하고 실행이 끝날 때까지 기다립니다

2421 단어 Delphi
 
Delphi  

function CreateSingleObject(FileName: string):Boolean;
var
  s: TStartupinfo;
  p: TProcessInformation;
begin
  Result :=False;
  FillChar(s, Sizeof(TStartupinfo), 0);
  s.cb := Sizeof(TStartupinfo);
  if CreateProcess(pChar(FileName), nil, nil, nil, False,
    Normal_Priority_Class, nil, nil, s, p) then
  begin
    WaitforSingleObject(p.hProcess, INFINITE);
    CloseHandle(p.hProcess);
    Result :=True;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hide;
  CreateSingleObject( 'C:\Windows\System32\cmd.exe');
  BringToFront;
  Show;
end;

Wiz

좋은 웹페이지 즐겨찾기