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

建立一个Unit ExecWait,把上面的代码输进去。

四、例子

如图建立Form，源程序如下：

unit DemoUnit;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, SHELLAPI;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

BtnExec: TButton;

CheckBoxWait: TCheckBox;

Label3: TLabel;

Label4: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Label5: TLabel;

procedure BtnExecClick(Sender: TObject);

private

{ Private declarations }

标签：

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