Delphi ShellExecute 執行外部程式

uses
  ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 執行 notepad
  ShellExecute(Handle, nil, 'notepad',  nil, nil, SW_SHOWNORMAL);
  // 打開 word 檔 
  ShellExecute(Handle, 'oppen', 'C:\a.doc',  nil, nil, SW_SHOWNORMAL);
  // 列印 excel 檔
  ShellExecute(Handle, 'print', 'C:\a.xls',  nil, nil, SW_SHOWNORMAL);
  // 開網頁
  ShellExecute(Handle, nil, 'http://www.borland.com/',  nil, nil, SW_SHOWNORMAL);
  // 寄信
  ShellExecute(Handle, nil, 'mailto:name@host.com?subject=主旨&body=內文',  nil, nil, SW_SHOWNORMAL);
end;