怎样用一个按钮调用一个其他的执行文件(EXE)?(20分)

怎样用一个按钮调用一个其他的执行文件(EXE)?

WinExec() or ShellExecute()

差不多了!不用我了,哈哈

procedure tform1.button1click(sender:tobject);
begin
executefile(filename,'',directory,SW_SHOW);
end;

function executefile(const filename,params,defaultdir,string;
showcmd:integer):thandle;
var
zfilename,zparams,zdir:array[0..79] of char;
begin
result:=shellexecute(application.Mainform.handle,nil,
strpcopy(zfilename,filename),strpcopy(zparams,params),
strpcopy(zdir,defaultdir),showcmd);
end;

用WinExec();比方说打开一个记事本：
WinExec('D:/WINNT/NOTEPAD.EXE', SW_SHOWNORMAL);

用ShellExecute()，具体参数看看帮助