delphi调用外部EXE,等待执行完毕时再响应后续操作.

http://blog.csdn.net/gjsshn_2010/article/details/4158360

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD): Longword;

var

StartupInfo: TStartupInfo;

ProcessInfo: TProcessInformation;

begin

FillChar(StartupInfo, SizeOf(StartupInfo), #0);

StartupInfo.cb := SizeOf(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;

StartupInfo.wShowWindow := ShowCmd;

if not CreateProcess(nil,@Filename[1], nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo,ProcessInfo)

then

Result := WAIT_FAILED

else

begin

if wait = FALSE then

begin

if ProcID <> nil then

ProcID^ := ProcessInfo.dwProcessId;

result := WAIT_FAILED;

exit;

end;

WaitForSingleObject(ProcessInfo.hProcess, INFINITE);

GetExitCodeProcess(ProcessInfo.hProcess, Result);

end;

if ProcessInfo.hProcess <> 0 then

CloseHandle(ProcessInfo.hProcess);

if ProcessInfo.hThread <> 0 then

CloseHandle(ProcessInfo.hThread);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

ProcID: Cardinal;

begin

ProcID := 0;

if OpenDialog1.Execute then

RunProcess(OpenDialog1.FileName, SW_SHOW, CheckBox1.Checked, @ProcID);

ShowMessage(IntToStr(ProcID));

end;