• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi技巧集六(等待执行完一个外部程序再执行另一个程序) ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ShellAPI;  //注意

{$R *.dfm}

function ExecAppWait(AppName, Params: string): Boolean;
var
  ShellExInfo: TShellExecuteInfo;
begin
  FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
  with ShellExInfo do begin
    cbSize := SizeOf(ShellExInfo);
    fMask := see_Mask_NoCloseProcess;
    Wnd := Application.Handle;
    lpFile := PChar(AppName);
    lpParameters := PChar(Params);
    nShow := sw_ShowNormal;
  end;
  Result := ShellExecuteEx(@ShellExInfo);
  if Result then
    while WaitForSingleObject(ShellExInfo.HProcess, 100) = WAIT_TIMEOUT do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const    { 连续运行下面这四个EXE文件 }
  EXEFILES : array[1..4] of string =
             ('calc.exe', 'mspaint.exe', 'Notepad.exe', 'wordpad.exe');
var
  Success: Boolean;
  InstanceID: THandle;
  I : integer;
begin
  for I := Low(EXEFILES) to High(EXEFILES) do
    begin
    Application.Minimize;
    Success := False;
    try
       Success := ExecAppWait(EXEFILES[I], '')
    finally
      Application.Restore;
      if not Success then
        ShowMessage(Format('Application %d failed: %s', [ I, EXEFILES[I] ]));
    end;
  end;
end;

end.


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
PCA算法学习_2(PCA理论的matlab实现)发布时间:2022-07-18
下一篇:
matlab求一个矩阵中各元素出现的个数(归一化)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap