Question

delphi中如何编写当点击按钮时打开该程序某文件夹下的exe程序?

delphi中如何编写当点击按钮时打开该程序某文件夹下的exe程序?
=============
听说用ShellExecute可以实现，但不会写 点击按钮时打开该程序某文件夹下的exe程序
==========
在线等

Answer 1

我程序里面的语句例子：

const
ym_web_url1: pchar = 'http://www.xxx.com/ymessage.exe';

procedure TYMessageMainForm.itmWebClick(Sender: TObject);
begin
if Application.MessageBox('功能菜单里面的升级功能更好用，升级更方便。'#13#10' 选“是”进入升级功能，选“否”继续进行下载',ProgramTitle,MB_YESNO)=IDYES
then UpdateVersion(1)
else ShellExecute(0, Nil, ym_web_url, Nil, Nil, SW_MAXIMIZE);
end;

我这里执行的exe在网络上，能完成下载，如果是本地文件，就能启动。

Answer 2

winexec('d:\a\xx.exe', SW_SHOW);

Answer 3

ShellExecute(handle, 'open', '你要打开的EXE的路径', nil, nil,SW_SHOWNORMAL);

Answer 4

ShellExecute(Application.Handle, 'Open', PChar('你的EXE文件全路径'), nil, nil, SW_SHOWNORMAL);

Answer 5

var
lAppName,
lParam:
PChar;
begin
lAppName
:=
'd:\xxx\des.exe';
lParam
:=
'';
ShellExecute(0,
nil,
lAppName,
lParam,
nil,
SW_SHOWNORMAL);
end;