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

最新推荐文章于 2022-02-23 15:02:25 发布

sunstone

最新推荐文章于 2022-02-23 15:02:25 发布

阅读量1.7k

点赞数

本文链接：https://blog.youkuaiyun.com/sunstone/article/details/4777922

版权

本文介绍了如何使用WaitForSingleObject函数替代repeat循环，更专业地等待外部程序结束。在Delphi程序中，通过创建进程并调用WaitForSingleObject，避免了CPU占用100%的问题，但注意到该函数可能阻止父窗体刷新，建议在单独的线程中执行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天发现前一篇文章的例程多少有些毛病，在主程序中使用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;