启动外部程序并等待它结束(5)

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses

execwait;

{$R *.DFM}

procedure TForm1.BtnExecClick(Sender: TObject);

var

Success: Boolean;

InstanceID: THandle;

begin

{ 最小化窗口，提醒发生的变化 }

Application.Minimize;

Success := False;

try

if CheckBoxWait.Checked then

Success := ExecAppWait(Edit1.Text, Edit2.Text)

else begin

InstanceID := ShellExecute(Handle, ''''open'''', PChar(Edit1.Text),

PChar(Edit2.Text), nil, SW_SHOW);

Success := InstanceID >= 32; // 小于32可就错了

end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有