DELPHI如何调用其他.exe程序！！！！(50分)

T

tjlqp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #1

用DELPHI程序如何调用其他.exe程序？据大侠讲：
（1）winexec函数
（2）ShellExecute(HANDLE,Pchar('Open'),Pchar(路径 + 'A.exe'),nil,
Pchar(路径),SW_SHOWNORMAL);
可用，可我太菜了，请大侠明示个例句，指导：tjlqp@sina.com敬候。

 

W

whyme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #2

shellexecute handle,'open','c:/winnt/system32/notepad.exe',nil,'',sw_shownormal)

 

X

xiaofeng007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #3

shellexecute(handle, 'open', 'C:/ABC/HELP.EXE',nil, nil, sw_shownormal);

或 winexec('C:/ABC/HELP.EXE',sw_shownormal);

 

X

xiaofeng007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #4

procedure TForm_main.N24Click(Sender: TObject);
var ppchar;
begin
try
begin
pp:=Pchar(ExtractFilePath(Application.exeName)+'MyHelp.chm');
Shellexecute(handle,'open',pp,nil,nil,SW_SHOWNORMAL);
end;
except
Application.MessageBox('系统提示：没有找到相应的目录或帮助文件！','系统提示...',MB_OK+MB_ICONINFORMATION);
end;
end;

 

X

xiaofeng007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #5

要加一个 use shellapi单元

 

T

tjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #6

shellexecute(Application.handle, 'open', 'C:/ABC/HELP.EXE',nil, nil, sw_shownormal);
如果有参数直接加在文件名称后
shellexecute(Application.handle, 'open', 'C:/ABC/HELP.EXE 123,456',nil, nil, sw_shownormal);

 

E

ETimeFly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #7

是的
：Shellexecute

 

Y

ylung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #8

同意xiaofeng007的方法。

 

S

szseawind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #9

WinExec(pchar('COMMAND.COM /C c:/123/test.ext'),0) //0:不显示窗口;
//1:为显示窗口

 

T

tjlqp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-24

• #10

xiaofeng007先生的主意最全面：
1。要加 use shellapi 单元，否则 Shellexecute 不能使用；
2。例程：
procedure TForm_main.N24Click(Sender: TObject);
var ppchar;
//类型必须正确
begin
try
begin
//下列语句中有自动获取当前运行文件目录的内容，扩大了应用环境
pp:=Pchar(ExtractFilePath(Application.exeName)+'MyHelp.chm');
Shellexecute(handle,'open',pp,nil,nil,SW_SHOWNORMAL);
end;
except
Application.MessageBox('系统提示：没有找到相应的目录或帮助文件！','系统提示...',MB_OK+MB_ICONINFORMATION);
end;
end;