怎样用Delphi中的一个按钮执行系统中的一个.exe程序(50分)

葡萄 · 2003-08-27

望高手指点~~

ottsoft · 2003-08-27

winexec

52free · 2003-08-27

winexec('calc.exe',SW_SHOW)

protossgffnxk · 2003-08-27

uses ShellApi; ShellExecute(handle,nil,pchar('yourfile.exe'),nil,nil,sw_shownormal);

ledo · 2003-08-27

uses Shellapi; shellexecute(handle,nil,pchar('calc.exe'),nil,nil,sw_shownormal);

mole · 2003-08-27

uses WinProcs;     begin    WinExec(......);    ... end.

hardware007 · 2003-08-27

 ShellExecute( self.Handle  ,nil, 'calc.exe' , nil,nil,SW_SHOW);

WangBingBing · 2003-08-27

shellexecute(handle,nil,pchar('notepad.exe'),nil,nil,sw_shownormal);

怡.梦 · 2003-08-27

procedure TLYMain.b1Click(Sender: TObject); var   Handle1: Integer;   path:string; begin   handle1 := findwindow('Tform',nil);// 解决程序重入问题   if handle1 <> 0 then   begin     showmessage('已经启动!');   end else   begin     path:=ExtractFilePath(application.ExeName);     if not fileexists(path+'*.exe') then       showmessage('在路径 " '+path+' " 下没找到程式!');     ShellExecute(handle, 'open', pchar(path+'*.exe'),'','', sw_show);   end; end;

PowerXJQ · 2003-08-27

提醒一句，记得加uses ShellApi; ：）

大连的BEAR · 2003-09-03

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ShellAPI; type   TForm1 = class(TForm)     Button1: TButton;     Label1: TLabel;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);     private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal); end; end.

dcsdcs · 2003-09-03

还有采用createprocess

andy09_2003 · 2003-09-03

winexec('exe的具体路径'，SW_SHOW)

eluian · 2003-09-03

用ShellExecute舒服

protossgffnxk · 2003-09-08

大家都说了,我也没什么好说的了.

怎样用Delphi中的一个按钮执行系统中的一个.exe程序(50分)

葡萄

Unregistered / Unconfirmed

ottsoft

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

protossgffnxk

Unregistered / Unconfirmed

ledo

Unregistered / Unconfirmed

mole

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

WangBingBing

Unregistered / Unconfirmed

怡.梦

Unregistered / Unconfirmed

PowerXJQ

Unregistered / Unconfirmed

大连的BEAR

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

andy09_2003

Unregistered / Unconfirmed

eluian

Unregistered / Unconfirmed

protossgffnxk

Unregistered / Unconfirmed

Similar threads