我想执行当前目录下的一个文件夹下的EXE文件，需要怎样做才可以实现？

[hudspping]

请问诸位高手，我想执行当前目录下的一个文件夹下的EXE文件，需要怎样做才可以实现？
谢谢。

[BES]

FileName := sPath+'EXE\'+FileName;

WinExec(Pchar(FileName),SW_MAXIMIZE)

[BES]

刚才忘了一行：

sPath := ExtractFilePath(Application.ExeName);

FileName := sPath+'EXE\'+FileName;

WinExec(Pchar(FileName),SW_MAXIMIZE)

[大地精灵]

也可以用shellexecute函数

[chuxin1]

sPath := ExtractFilePath(Application.ExeName);
FileName := sPath+'EXE\'+FileName;
Shellexecute(Handle,Pchar('Open'),Pchar(FileName)),nil,nil,Sw_Normal);

[Spqk005]

请uses shellapi才能编译ShellExecute

procedure TFDemo.Button2Click(Sender: TObject);
var
path:PChar;
begin
//ce为当前目录下的那个文件夹
path:=Pchar(ExtractFilePath(Application.ExeName)+'ce\calc.exe');
ShellExecute(handle,'open',path,'','', SW_SHOWNORMAL);
end;


程序调试通过,calc.exe为ce目录下的计算器程序
那个可执行目录你可以自己定义

[stcrane1228]

学习ing