Delphi中，執(zhí)行命令或者運行一個程序有2個函數(shù)，一個是winexec，一個是shellexecute。這兩個大家應該都見過，其中，winexec比較簡單，可以直接運行一個外部程序，shellexecute則更高級一些，除了可以運行外部exe，還可以執(zhí)行特殊命令。

下面我們就分別舉例子說明：我們先來看看運行一個exe程序，以記事本為例：

 

WinExec(PChar(' notepad .exe'),SW_NORMAL);//正常模式打開

WinExec(PChar(' notepad .exe'),SW_HIDE);//隱藏方式打開

WinExec(PChar('notepad.exe'),SW_SHOWMAXIMIZED);//最大化方式打開，軟件必須支持最大化運行，否則該參數(shù)無效，以NORMAL方式運行

WinExec(PChar('notepad.exe'),SW_SHOWMINIMIZED);//最小化方式打開

Shellexecute(handle,nil,'notepad.exe',nil,nil,sw_normal);//這個是用shellexecute的方式打開，注意最后一個參數(shù)，和上面一樣

 

使用Shellexecute注意需要uses ShellApi，上面的記事本，因為是在系統(tǒng)目錄下，所以可以直接寫notepad.exe文件名，而不必寫路徑，如果是其他非環(huán)境變量中注冊的exe，則需要帶上絕對路徑或者相對路徑

好，上面是最簡單的，下面我們來說說帶參數(shù)的運行，大家知道，有些exe程序在運行的時候可以附加參數(shù)，這里以cmd為例說明

比如，我想運行ping命令，去執(zhí)行ping 192.168.1.1

WinExec(PChar( 'cmd.exe /c  ping 192.168.1.1'),SW_SHOWNORMAL);

shellexecute(handle,nil,'cmd.exe',pchar('/c ping 192.168.1.1'),nil,sw_normal);

注意，cmd的命令需要是用/c表示帶參數(shù)運行，然后后面跟上具體命令，這樣就可以執(zhí)行ping命令了。

上面的命令的確可以成功運行，但是有個缺點，那就是cmd在執(zhí)行完畢后就會自動關(guān)閉窗口，如果有時候命令執(zhí)行的過快，我們根本看不清結(jié)果，那么，有什么辦法可以讓cmd在執(zhí)行完畢后不關(guān)閉窗口呢？答案是肯定的，我們需要一個額外的命令pause

 WinExec(PChar( 'cmd.exe /c  ping 192.168.1.1 & pause'),SW_SHOWNORMAL);

我們注意紅色部分，我們使用一個&符號和pause，pause是批處理中的暫停命令，&符號則表示可以執(zhí)行多個命令，上面的例子就表明，在執(zhí)行完ping命令后再執(zhí)行pause命令，這樣，窗口就不會關(guān)閉了。shellexecute同樣支持該方法。

下面，我們看看shellexecute其他的一些方法：

打開網(wǎng)頁：這個太簡單了，大家應該都知道

 ShellExecute(handle, 'open', PChar('http://www.baidu.com'), nil, nil, SW_SHOWNORMAL);//使用默認瀏覽器打開baidu.com

 ShellExecute(handle, 'open', 'firefox.exe',PChar('http://www.baidu.com'),nil, SW_SHOWNORMAL);//使用火狐瀏覽器打開baidu.com

 當然，shellexecute還支持在系統(tǒng)中注冊過的關(guān)聯(lián)命令。比如發(fā)郵件

ShellExecute(handle, 'open',PChar('mailto:123@123.com'),nil,nil, SW_SHOWNORMAL);

執(zhí)行這句就可以打開默認郵件客戶端給123@123.com發(fā)郵件了，如果我們想帶上主題和內(nèi)容也很好辦：

 ShellExecute(handle, 'open',PChar('mailto:123@123.com?subject=這是郵件主題&bcc=123@123.com&body=郵件正文'),nil,nil, SW_SHOWNORMAL);

上面的就可以自動填寫主題，內(nèi)容和抄送了，注意，中文需要編碼，否則可能出現(xiàn)亂碼。