Delphi写的等待进程运行结束函数

时间：2011/9/3 14:51:42 点击：

　　核心提示：procedure TForm1.Button1Click(Sender: TObject);var sCommandLine: string; bCreateProcess: boolean; lp...

procedure TForm1.Button1Click(Sender: TObject);
var
sCommandLine: string;
bCreateProcess: boolean;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
begin
sCommandLine := 'C:\TEST.EXE';
//初始化StartupInfo
FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);
lpStartupInfo.cb := Sizeof(TStartupInfo);
lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;
lpStartupInfo.wShowWindow := SW_NORMAL;

bCreateProcess := CreateProcess(nil, PChar(sCommandLine),
    nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
    nil, nil, lpStartupInfo, lpProcessInformation);
if bCreateProcess then      //等外部进程的结束
    WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);
end;