zoukankan      html  css  js  c++  java
  • 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(50);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    ShowMessage('Calculator terminated');
    end
    else
    ShowMessage('Error starting Calc!');
    end;
  • 相关阅读:
    大爆炸集成 Big Bang
    How:怎么做集成测试
    Where:对什么部分做集成测试
    web预览图片
    对象的属性赋值
    Web请求
    Sql Server 获取数据库最近执行的操作
    服务安装脚本
    生成并保存二维码图片,此方法最清晰
    c# get,set设置默认值
  • 原文地址:https://www.cnblogs.com/windson/p/12505194.html
Copyright © 2011-2022 走看看