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;