WinAPI: ShellExecute - 打開外部程序或文件

ShellExecute(   
hWnd: HWND;     {指定父窗口句柄}
Operation: PChar;  {指定動作, 譬如: open、print}  
FileName: PChar;   {指定要打開的文件或程序}   
Parameters: PChar; {給要打開的程序指定參數; 如果打開的是文件這里應該是 nil}   
Directory: PChar;  {缺省目錄}   
ShowCmd: Integer   {打開選項} 
): HINST;  {執行成功會返回應用程序句柄; 如果這個值 <= 32, 表示執行錯誤}  //返回值可能的錯誤有: 
= 0   {內存不足} ERROR_FILE_NOT_FOUND   
= 2;  {文件名錯誤} ERROR_PATH_NOT_FOUND   
= 3;  {路徑名錯誤} ERROR_BAD_FORMAT       
= 11; {EXE 文件無效} SE_ERR_SHARE           
= 26; {發生共享錯誤} SE_ERR_ASSOCINCOMPLETE 
= 27; {文件名不完全或無效} SE_ERR_DDETIMEOUT      
= 28; {超時} SE_ERR_DDEFAIL         
= 29; {DDE 事務失敗} SE_ERR_DDEBUSY         
= 30; {正在處理其他 DDE 事務而不能完成該 DDE 事務} SE_ERR_NOASSOC         
= 31; {沒有相關聯的應用程序}  
//ShowCmd 參數可選值: 
SW_HIDE            = 0;  {隱藏} 
SW_SHOWNORMAL      = 1; {用最近的大小和位置顯示, 激活} 
SW_NORMAL          = 1;  {同 SW_SHOWNORMAL} 
SW_SHOWMINIMIZED   = 2;  {最小化, 激活} 
SW_SHOWMAXIMIZED   = 3;  {最大化, 激活} 
SW_MAXIMIZE        = 3;  {同 SW_SHOWMAXIMIZED} 
SW_SHOWNOACTIVATE  = 4;  {用最近的大小和位置顯示, 不激活} 
SW_SHOW            = 5;  {同 SW_SHOWNORMAL} 
SW_MINIMIZE        = 6;  {最小化, 不激活} 
SW_SHOWMINNOACTIVE = 7;  {同 SW_MINIMIZE} 
SW_SHOWNA          = 8;  {同 SW_SHOWNOACTIVATE} 
SW_RESTORE         = 9;  {同 SW_SHOWNORMAL} 
SW_SHOWDEFAULT     = 10; {同 SW_SHOWNORMAL} 
SW_MAX             = 10; {同 SW_SHOWNORMAL} 
  //舉例說明更多問題(別忘了 uses ShellAPI;):  {譬如用記事本打開一個文件} begin   ShellExecute(Handle, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL); end; 
  {第一個參數是用來當作錯誤提示窗口的父窗口的, 不能是 nil, 可以是 0(也就是桌面窗口)} begin   ShellExecute(0, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL); end; 
  {第二個參數如果是 nil, 也會默認位 open} begin   ShellExecute(0, nil, 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL); end; 
  {文件路徑可以放在參數五} begin   ShellExecute(0, nil, 'notepad.exe', 'SchedLgU.Txt', 'C:\WINDOWS', SW_SHOWNORMAL); end; 
  {把參數三直接指定為要打開的文件, 文件將用對應默認程序打開; 次數參數四應為 nil} begin   ShellExecute(0, nil, 'SchedLgU.Txt', nil, 'C:\WINDOWS', SW_SHOWNORMAL); end; 
  {如果文件在: 程序目錄/當前目錄/System32/Windows/PATH環境變量中, 參數五也可以 nil} begin   ShellExecute(0, nil, 'SchedLgU.Txt', nil, nil, SW_SHOWNORMAL); end; 
  {如果參數三是個文件, 可以用參數二命令打印} begin   ShellExecute(0, 'print', 'SchedLgU.Txt', nil, nil, 1); end; 
  {用 IE 打開網頁} begin   ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL); end; 
  {用火狐打開網頁} begin   ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);  end; 
  {用默認瀏覽器打開網頁} begin   ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL); end; 
  {還是用默認瀏覽器打開網頁} begin   ShellExecute(0, nil, 'http://del.cnblogs.com', nil, nil, 1); end;