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

  • 主题发起人 主题发起人 dreamya
  • 开始时间 开始时间
D

dreamya

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样用一个按钮调用一个其他的执行文件(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(),具体参数看看帮助
 
后退
顶部