调用外部程序的方法

我们常用的函数有两个，WinExec  和  ShellExecute。      

    1）  使用  WinExec  函数  （属于  WinProcs单元）     · 

 声明形式      UNIT  WinExec(LPCSTR  lpCmdLine,  UINT  uCmdShow);      [例]  var  SDir:string;    

SetLength(SDir,144);   

  GetWindowsDirectory(PChar(SDir),144);  

   SetLength(SDir,StrLen(PChar(SDir)));     SDir:=SDir+'/notepad.exe'+'  '+savedialog1.FileName;   

  WinExec(PChar(SDir),  SW_SHOWMAXIMIZED);    

       注意：如果  SDir  不是有效路径不会提示错误。    

[例]  winexec('command.com  /c  copy  *.*  c:/',SW_Normal);    

 [例]  winexec('start  abc.txt');            

  2）使用  ShellExecute  函数（属于ShellAPI单元）    

 它的几个参数：     ·  hwnd：窗体的句柄；    

 ·  lpOperation：打开程序执行的操作，共预留有"open"、"explore"、  "print"三种方式，此参数可以省略，此时将依据打开的文件（lpFile）的类型执行相应的操作，比如：如果lpFile为一文本文件，那么将会在与该文件相关联的程序中打开它     · 

 lpFile：文件名；       ·  lpParamerters：打开文件时所需的参数；     

  ·  lpDirectory：文件名所在的路径，当然，一般来说，在Windows中登记过的程序（如WinWord）不必提供此参数；   

  ·  nShowCmd：打开文件后程序窗体如何显示。        

（1）运行可执行文件      

  [例]  以"记事本"为例    

procedure  TForm1.OpenBtnClick(Sender:TObject);      

 begin  

ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal);   

 end;           

 此外，ShellExeCute()  还可以进行链接网络。    

  [例]  procedure  TForm1.HttpClick(Sender:  TObject);   

    begin    

ShellExecute(handle,'open','http://liangming.163.net',  nil,nil,SW_ShowNormal);       end;      

（2）打开在Windows注册的外部文件               

 如果一个文件已经在Windows的注册表中注册了，那我们就可以通过以下方法运行他，首先要在uses部分加入：  uses  Shellapi;       接着定义一个过程      

 procedure  URLink(URL:PChar);    

begin       

 ShellExecute(0,  nil,  URL,  nil,  nil,  SW_NORMAL);    

end;      

在要调用的地方使用：  URLink('Readme.txt');       要链接到主页就改用：      URLink('http://vortex.yeah.net');       要发邮件就要在邮件地址前加：  mailto  URLink('mailto:guihong@163.net');       如果是打开外部执行程序的话，那么也可以直接调用。   ---------------------------------------------------------------    

function  RunProgram(ProgramName:string;Wait:Boolean=False):Cardinal;  

var      

StartInfo:STARTUPINFO;    

  ProcessInfo:PROCESS_INFORMATION;  

begin   //执行外部程序,失败返回0,成功返回进程句柄      

Result:=0;     

 if  ProgramName=''  then  exit;      

GetStartupInfo(StartInfo);      StartInfo.dwFlags:=StartInfo.dwFlags  or  STARTF_FORCEONFEEDBACK;      if  not  CreateProcess(nil,PChar(ProgramName),nil,nil,false,0,                      nil,nil,StartInfo,ProcessInfo)  then    exit