如何执行外部应用程序.50分.(50分)

雨之子 · 2004-02-10

哪位高手,肯帮我一下呀. 我现在做了一个应用程序,想通过一个按钮的OnClick事件，直接调用WINDOWS的就应用程序，比如说：想能过一个“升级”按钮直接调用服务器上的瑞星升级程序。

andy263 · 2004-02-10

ShellExecute(handle,  'Open','c:/rav/update.exe',nil,  'c:/rav/',  sw_Show);

luckhacker · 2004-02-10

同意楼上 或者用WINEXEC

crazyD · 2004-02-10

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs,shellapi, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0,'open','notepad.exe','c:/winnt/system32/cmd.exe',nil,SW_SHOW); end; end.

app2001 · 2004-02-10

就是，就是

liujzi · 2004-02-10

来晚了

shayang · 2004-02-10

WinExec('外部程序名',执行方式); 如：执行  记事本 WinExec('C:/Windows/notepad.exe',3); 最后一个3是执行方式，可以在delphi环境里,输入WinExec后，按下Ctrl,用鼠标双击WinExec，在出现的页面中可以找到执行方式中的常数对应的意义。

雨之子 · 2004-02-11

谢谢你们.前面你们说得很好,关建是完了之后,如何判断升级成功．我想这样做，长级后，在c:/rav里查查看最新升级文件的名称．该如何做呀． 怎么在一个目录里一个文件是否存在．

jlyin · 2004-02-11

if not fileexists('C:/rav/abc.exe') then   begin     MessageBox(handle,'abc文件不存在','提示',mb_ok or mb_iconerror);     exit;   end;   WinExec('C:/rav/abc.exe'',3);

liujzi · 2004-02-11

//判断在一个目录里一个文件是否存在  if not fileexists(文件) then  begin    MessageBox(handle,'文件不存在','提示',mb_ok or mb_iconerror);    exit;  end;

雨之子 · 2004-02-11

谢谢了.还有一个问题,如何取出opendialog打开的一个文件名字.不要文件路径,只要文件名称.然后把这个文件名称给到一个Edit1.text里面.

jlyin · 2004-02-11

var   S:string;   Len:integer; begin     S := opendialog1.FileName;     len:=length(S);     while Pos('/', S) > 0 do     begin       S:=copy(S, Pos('/', S)+1,len-Pos('/', S));       len:=length(S);     end;     Edit1.text:=S; end;

如何执行外部应用程序.50分.(50分)

雨之子

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

crazyD

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

liujzi

Unregistered / Unconfirmed

shayang

Unregistered / Unconfirmed

雨之子

Unregistered / Unconfirmed

jlyin

Unregistered / Unconfirmed

liujzi

Unregistered / Unconfirmed

雨之子

Unregistered / Unconfirmed

jlyin

Unregistered / Unconfirmed

Similar threads