Delphi 7.0 调用外部exe文件的例子源代码,通过程序窗口,你可浏览到windows中任意的EXE可执行文件,本程序将调用它并打开它,在Delphi程序中打开外部的EXE程序,相关代码片断先看看:
begin
dirchar:='';
if trim(FileLIst.FileName) <> '' then
begin
FileAttrs := faAnyFile;
strcat(dirchar,pchar(FileList.FileName));
if findfirst(dirchar,FileAttrs,sr)=0 then
//执行可执行文件
shellexecute(application.Handle,nil,dirchar,nil,nil,sw_shownormal)
else
showmessage('该文件不存在!');
end;
end;
完整的源码请点击下载按钮下载源码。
1