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

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