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

最新推荐文章于 2021-01-13 09:01:32 发布

aaaa9550

最新推荐文章于 2021-01-13 09:01:32 发布

阅读量703

点赞数

分类专栏：转帖

本文链接：https://blog.csdn.net/aaaa9550/article/details/22861677

版权

转帖专栏收录该内容

6 篇文章 0 订阅

订阅专栏

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

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

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

uses shellAPI;

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);    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) or Application.Terminated;
    ShowMessage('Calculator terminated');
end
else
    ShowMessage('Error starting Calc!');
end;