Delphi编程语言提供了一种跨平台编写、编译、打包和部署应用程序的快速方法。尽管Delphi创建了一个图形用户界面，但您肯定会有很多次希望从Delphi代码中执行程序。假设您有一个使用外部备份实用程序的数据库应用程序。备份实用程序从应用程序获取参数并存档数据，而您的程序则等待备份完成。

也许您想打开文件列表框中的文档，只需双击它们，而无需首先打开相关程序。想象一下，您的程序中有一个链接标签将用户带到您的主页。关于通过默认的Windows电子邮件客户端程序直接从Delphi应用程序发送电子邮件，您怎么看？

shellexecute

要在Win32环境中启动应用程序或执行文件，请使用ShellExecute Windows API函数。有关返回的参数和错误代码的完整说明，请查看ShellExecute的帮助。您可以打开任何文档，而不知道与之关联的程序链接是在Windows注册表中定义的。

下面是一些shell示例。

运行记事本

uses ShellApi;...ShellExecute(Handle, 'open','c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

用记事本打开sometext.txt

ShellExecute(Handle,'open','c:\windows\notepad.exe','c:\SomeText.txt', nil, SW_SHOWNORMAL) ;

显示“delphidownload”文件夹的内容

ShellExecute(Handle,'open', 'c:\DelphiDownload', nil, nil, SW_SHOWNORMAL) ;

根据文件扩展名执行文件

ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ;

下面介绍如何查找与扩展关联的应用程序。

使用默认的web explorer打开网站或*.htm文件

ShellExecute(Handle, 'open','http://delphi.about.com',nil,nil, SW_SHOWNORMAL) ;

发送带有主题和邮件正文的电子邮件

var em_subject, em_body, em_mail : string;begin em_subject := 'This is the subject line'; em_body := 'Message body text goes here'; em_mail := 'mailto:[email protected]?subject=' + em_subject + '&body=' + em_body ; ShellExecute(Handle,'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL) ;end;

下面是如何发送带有附件的电子邮件。

执行一个程序并等待它完成

以下示例使用ShellExecuteEx API函数。

// Execute the Windows Calculator and pop up// a message when the Calc is terminated.uses ShellApi;...var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string;begin ExecuteFile:='c:\Windows\Calc.exe'; FillChar(SEInfo, SizeOf(SEInfo), 0) ; SEInfo.cbSize := SizeOf(TShellExecuteInfo) ; with SEInfo do begin fMask := SEE_MASK_NOCLOSEPROCESS; Wnd := Application.Handle; lpFile := PChar(ExecuteFile) ;{ParamString can contain theapplication parameters.}// lpParameters := PChar(ParamString) ;{StartInString specifies thename of the working directory.If ommited, the current directory is used.}// lpDirectory := PChar(StartInString) ; nShow := SW_SHOWNORMAL; end; if ShellExecuteEx(@SEInfo) then begin repeat Application.ProcessMessages; GetExitCodeProcess(SEInfo.hProcess, ExitCode) ; until (ExitCode <> STILL_ACTIVE) or Application.Terminated; ShowMessage('Calculator terminated') ; end else ShowMessage('Error starting Calc!') ;end;