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

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 ;

转载于:https://www.cnblogs.com/rogee/archive/2010/09/15/1827304.html