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

我们经常能看到360安全卫士进行windows系统升级时，执行windows升级程序，当升级程序执行完成后，360马上弹出提示框。

这样的程序是如何做到的呢？下述代码就能完成！

procedure TForm1.Button1Click(Sender: TObject);
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
  ExecuteFile, ParamString, StartInString:string;
begin
  ExecuteFile :='c:\Windows\system32\Calc.exe';
  FillChar(SEInfo, SizeOf(SEInfo), #0);
  SEInfo.cbSize :=SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask :=SEE_MASK_NOCLOSEPROCESS;
    Wnd :=Application.Handle;
    lpFile :=PChar(ExecuteFile);

   //ParamString can contain the application parameters
//   lpParameters := PChar(ParamString);
   //StartInString specifies the name of the working directory.ifommited, the current directory is used.
//   lpDirectory := PChar(StartInString);

    nShow :=SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
     Application.ProcessMessages;
     GetExitCodeProcess(SEInfo.hProcess, ExitCode);
     if ExitCode = STILL_ACTIVE then Sleep(500);
    until(ExitCode <> STILL_ACTIVE) orApplication.Terminated;
   ShowMessage('Calculator terminated');
  end
  else
   ShowMessage('Error starting Calc!');
end;

发表于 @ 2009年10月27日　20:48:00

本文来自CSDN博客：http://blog.csdn.net/sunstone/archive/2009/10/27/4735088.aspx

 

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

http://blog.csdn.net/sunstone/archive/2009/11/06/4777922.aspx

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