Delphi ShellExecute多种用法

本文整理自网络，侵删。

 Example 1Execute NotePad:
ShellExecute(  Application.Handle,  'open',  'c:\Windows\notepad.exe',  nil,  nil,  SW_SHOWNORMAL);Example 2Open SomeText.txt in NotePad:
ShellExecute(  Application.Handle,  'open',  'c:\windows\notepad.exe',  'c:\SomeText.txt',  nil,  SW_SHOWNORMAL);Example 3Execute a file according to its extension:
ShellExecute(  Application.Handle,  'open',  'c:\MyDocuments\Letter.doc',  nil,  nil,  SW_SHOWNORMAL);Example 4Open web site or a *.htm file with the default web browser.
ShellExecute(  Application.Handle,  'open',  'http://example.com',  nil,  nil,  SW_SHOWNORMAL);Example 5Send an e-mail with a subject and a message body:
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:delphi.guide@about.com?subject=' +    em_subject + '&body=' + em_body ;  ShellExecute(    Application.Handle,    'open',    PChar(em_mail),    nil,    nil,    SW_SHOWNORMAL  );end;Example 6Execute the Windows Calculator and pop up a message when 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);    //lpParameters := PChar(ParamString);      {ParamString can contain the application parameters.}    //lpDirectory := PChar(StartInString);      {StartInString specifies the name of the working directory.      If ommited, the current directory is used.}    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; 

相关阅读 >>

Delphi 在线程中运行窗体

Delphi 禁止关机的代码

Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动

Delphi (user agent) of a twebbrowser

Delphi代码中嵌入汇编asm代码

Delphi中判断操作系统是否是windows7

Delphi 获取指定目录下的所有文件名，包括子目录函数

Delphi xe将图标和图像添加为资源

Delphi 如何把字符串覆给数组

Delphi 调用外部 dll 中的函数(2. 晚绑定)

更多相关阅读请进入《Delphi》频道 >>