Csdn-Blog <script language="javascript" src="http://www.023rcsc.com/count/count2.asp"></script>
unitDemoUnit; 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;
procedureBtnExecClick(Sender:TObject); private
{Privatedeclarations} public
{Publicdeclarations} end; var
Form1:TForm1;
implementation uses execwait; {$R*.DFM}
procedureTForm1.BtnExecClick(Sender:TObject); var
Success:Boolean;
InstanceID:THandle; begin
{最小化窗口,提醒发生的变化}
Application.Minimize;
Success:=False; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit1.Text,Edit2.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit1.Text),
PChar(Edit2.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//可别忘了恢复我们的程序的窗口!
Application.Restore;
ifnotSuccessthen
ShowMessage('Application1failed:'+Edit1.Text+''+Edit2.Text); end; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit3.Text,Edit4.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit3.Text),
PChar(Edit4.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//恢复我们的程序的窗口
Application.Restore;
ifnotSuccessthen
ShowMessage('Application2failed:'+Edit3.Text+''+Edit4.Text); end; end; end.
OK,没有问题吧?你赶快试试吧,把它应用到你的程序里。#
unitDemoUnit; 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;
procedureBtnExecClick(Sender:TObject); private
{Privatedeclarations} public
{Publicdeclarations} end; var
Form1:TForm1;
implementation uses execwait; {$R*.DFM}
procedureTForm1.BtnExecClick(Sender:TObject); var
Success:Boolean;
InstanceID:THandle; begin
{最小化窗口,提醒发生的变化}
Application.Minimize;
Success:=False; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit1.Text,Edit2.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit1.Text),
PChar(Edit2.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//可别忘了恢复我们的程序的窗口!
Application.Restore;
ifnotSuccessthen
ShowMessage('Application1failed:'+Edit1.Text+''+Edit2.Text); end; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit3.Text,Edit4.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit3.Text),
PChar(Edit4.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//恢复我们的程序的窗口
Application.Restore;
ifnotSuccessthen
ShowMessage('Application2failed:'+Edit3.Text+''+Edit4.Text); end; end; end.
OK,没有问题吧?你赶快试试吧,把它应用到你的程序里。#
启动外部程序并等待它结束 (下) src="http://www.023rcsc.com/count/iframe2.asp" frameborder="0" width="650" scrolling="no" height="160">
启动外部程序并等待它结束 (下)
#unitDemoUnit; 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;
procedureBtnExecClick(Sender:TObject); private
{Privatedeclarations} public
{Publicdeclarations} end; var
Form1:TForm1;
implementation uses execwait; {$R*.DFM}
procedureTForm1.BtnExecClick(Sender:TObject); var
Success:Boolean;
InstanceID:THandle; begin
{最小化窗口,提醒发生的变化}
Application.Minimize;
Success:=False; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit1.Text,Edit2.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit1.Text),
PChar(Edit2.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//可别忘了恢复我们的程序的窗口!
Application.Restore;
ifnotSuccessthen
ShowMessage('Application1failed:'+Edit1.Text+''+Edit2.Text); end; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit3.Text,Edit4.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit3.Text),
PChar(Edit4.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//恢复我们的程序的窗口
Application.Restore;
ifnotSuccessthen
ShowMessage('Application2failed:'+Edit3.Text+''+Edit4.Text); end; end; end.
OK,没有问题吧?你赶快试试吧,把它应用到你的程序里。#
unitDemoUnit; 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;
procedureBtnExecClick(Sender:TObject); private
{Privatedeclarations} public
{Publicdeclarations} end; var
Form1:TForm1;
implementation uses execwait; {$R*.DFM}
procedureTForm1.BtnExecClick(Sender:TObject); var
Success:Boolean;
InstanceID:THandle; begin
{最小化窗口,提醒发生的变化}
Application.Minimize;
Success:=False; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit1.Text,Edit2.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit1.Text),
PChar(Edit2.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//可别忘了恢复我们的程序的窗口!
Application.Restore;
ifnotSuccessthen
ShowMessage('Application1failed:'+Edit1.Text+''+Edit2.Text); end; try
ifCheckBoxWait.Checkedthen
Success:=ExecAppWait(Edit3.Text,Edit4.Text)
elsebegin
InstanceID:=ShellExecute(Handle,'open',PChar(Edit3.Text),
PChar(Edit4.Text),nil,SW_SHOW);
Success:=InstanceID>=32;//小于32可就错了
end; finally
//恢复我们的程序的窗口
Application.Restore;
ifnotSuccessthen
ShowMessage('Application2failed:'+Edit3.Text+''+Edit4.Text); end; end; end.
OK,没有问题吧?你赶快试试吧,把它应用到你的程序里。#
启动外部程序并等待它结束 (下) src="http://www.023rcsc.com/count/iframe2.asp" frameborder="0" width="650" scrolling="no" height="160">