运行程序并等待结束

function ExecAndWait(aFilename: string; aParamStr: string = '';
aWait: boolean = True): boolean;
var
si: TStartupInfo;
pi: TProcessInformation;
begin
if not FileExists(aFilename) then
Result := False
else
begin
FillChar(pi, SizeOf(TProcessInformation), #0);
FillChar(si, SizeOf(TStartupInfo), #0);
with si do
begin
cb := SizeOf(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOW;
end;
Result := CreateProcess(PChar(aFilename), PChar(aParamStr), nil, nil,
False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(aFilename)), si, pi);
if Result and aWait then
WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;
end;