在Delphi中调用EXE文件,最简单、最容易理解的方法。
我们常用的函数有两个,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');
//加一下按钮,加一个对话框就OK啦 procedure TForm1.Button1Click(Sender: TObject); var S: String; begin if OpenDialog1.Execute then begin s := OpenDialog1.FileName; WinExec( PChar(s), SW_NORMAL); end; end;---------------------------------------------------------------
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;(2)此外,ShellExeCute() 还可以进行链接网络。
[例]
procedure TForm1.HttpClick(Sender: TObject); begin ShellExecute(handle,'open','http://liangming.163.net', nil,nil,SW_ShowNormal); end;(3)打开在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; Result:=ProcessInfo.hProcess; //建立进程成功 //如果异步执行则退出 if not wait then exit; while IsProgram_Runing(Result) do Application.ProcessMessages; end; function IsProgram_Runing(hProcess:Cardinal):Boolean; var ExitCode:Cardinal; begin //查看进程是否正在运行 GetExitCodeProcess(hProcess,ExitCode); if ExitCode=STILL_ACTIVE then Result:=True else Result:=False; end;
posted on 2010-10-19 19:35 Delphi7456 阅读(7620) 评论(0) 编辑 收藏 举报