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
;