delphi中等待外部应用程序执行完成后，再继续执行自有代码段

下面是两个函数，用来执行一个外部程序，缺省是异步执行

同步调用方法 RunProgram(‘c:\aa.exe‘,true);

参考IsProgram_Runing函数，你也可以调用RunProgram(‘c:\aa.exe‘)先异步执行，然后根据返回的进程句柄，自己判断程序是否执行结束。

// 异步执行

function RunProgram(ProgramName:string;Wait:Boolean=False):Cardinal;

var

StartInfo:STARTUPINFO;

ProcessInfo:PROCESS_INFORMATION;

begin

//执行外部程序,失败返回0,成功返回进程句柄

Result:=0;

if ProgramName=‘‘ then exit;

GetStartupInfo(StartInfo);

StartInfo.dwFlags:=StartInfo.dwFlags or STARTF_FORCEONFEEDBACK;

if not CreateProcess(nil,PChar(ProgramName),nil,nil,false,0,

nil,nil,StartInfo,ProcessInfo) then  exit;

Result:=ProcessInfo.hProcess;

//建立进程成功

//如果异步执行则退出

if not wait then exit;

while IsProgram_Runing(Result) do Application.ProcessMessages;

end;

// 同步执行

function IsProgram_Runing(hProcess:Cardinal):Boolean;

var

ExitCode:Cardinal;

begin

//查看进程是否正在运行

GetExitCodeProcess(hProcess,ExitCode);

Result := ExitCode=STILL_ACTIVE

end;