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


本文整理自网络,侵删。

 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;

相关阅读 >>

Delphi中accesss实现树形结构查询系统

Delphi 农历源码

Delphi xe5调用外部扫描程序――谷歌 zxing

Delphi 程序启动窗体控制在桌面右下角

Delphi实现电脑桌面壁纸更换

Delphi fdconnection取得excel工作表名

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

Delphi closefile 关闭文件

获取 ip138 ip 地址

Delphi 10 seattle中的画布上绘制字符

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...