求助!!!!!!!!!!(100分)

  • 主题发起人 主题发起人 jasmine5320
  • 开始时间 开始时间
J

jasmine5320

Unregistered / Unconfirmed
GUEST, unregistred user!
[:(]如何在delphi 程序中调用exe文件?
 
uses中添加,uses shellapi
然后

shellexecute (handle,nil,'你的文件名',nil,nil,sw_shownormal);
 
uses中添加,uses ShellAPI
winexec('c:/windows/calc.exe',SW_SHOWNA);
搜一下DFW
 
i := winexec('c:/windows/calc.exe',sw_show);
if i<=31 then

begin

case i of
0 : application.MessageBox('系统资源不足,请关闭一些程序再试!','提示',mb_ok+mb_iconstop);
ERROR_BAD_FORMAT : application.MessageBox('所调用的不是一个有效的Win32文件!','提示',mb_ok+mb_iconstop);
ERROR_FILE_NOT_FOUND:application.MessageBox('程序未找到!','提示',mb_ok+mb_iconstop);
ERROR_PATH_NOT_FOUND:application.MessageBox('路径未找到!','提示',mb_ok+mb_iconstop);
end;

end;
 
建议用shellApi,如jsongy所说!
 
后退
顶部