启动外部程序并等待它结束 (下)--IT man

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">