delphi执行一个外部程序，当外部程序结束后，delphi程序立即响应（续）

来源：互联网发布：生命不能承受之轻知乎编辑：程序博客网时间：2024/04/28 10:35

今天发现前一篇文章的例程多少有些毛病，在主程序中使用repeat循环来等待外部程序的关闭，这样这个程序占用cpu会是100%，所以加上一句sleep语句来释放cpu。但是这样做我也不太满意，毕竟用了repeat循环，显得程序很不专业。今天试了另一种方法，使用WaitForSingleObject函数，而不用repeat过程。但是也发现了一些问题。等我有时间在优化一下。

function WinExec(aCMD: PAnsiChar; aVisible: Integer): DWORD;
var
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartUpInfo, SizeOf(StartUpInfo), #0);
StartUpInfo.cb := SizeOf(StartUpInfo);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := aVisible;
if not CreateProcess(nil, aCMD, nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
    nil, nil, StartUpInfo, ProcessInfo) then
begin
    Result := 0;
end
else
begin
    //这个信号量函数会造成父窗体不刷新，大家可以试试移动计算器窗口，父窗口会一片空白。建议放到线程中执行
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
//    MsgWaitForMultipleObjects(1, ProcessInfo.hProcess, FALSE, INFINITE, QS_PAINT);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
case WinExec('c:/Windows/system32/Calc.exe', SW_SHOWNORMAL) of
    0: ShowMessage('Create Process Error');
    STILL_ACTIVE: ShowMessage('Activing');
else
    ShowMessage('Terminated');
end;
end;