2015.1.25 Delphi打開網址鏈接的幾種方法，2015.1.25delphi
Delphi打開網址鏈接的幾種方法
1、使用shellapi打開系統中默認的浏覽器
首先需在頭部引用 shellapi單元即在uses中添加shellapi，這裡我們需要知道有3個api函數可以運行可執行文件WinExec、ShellExecut和CreateProcess。
下面為 ShellExecute的標准用法
ShellExecute(Application.Handle, nil, 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);
從左往右開始，Application.Handle代表應用程序主窗口作為windows消息窗口的父窗口；第一個nil為執行默認“open”操作；'http://www.baidu.com'是要打開的網址，一般為打開應用程序的名稱；第二個nil代表若上一個是個可執行文件則指定命令行參數，不然為nil；第三個nil用於指定默認目錄；SW_SHOWNORMAL代表程序初始化窗口顯示的方式，該方式為用原來大小和方式顯示，並進行活動狀態。
其實 ShellExecute(Application.Handle, nil, 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);是ShellExecut的特殊用法，當'http://www.baidu.com'這裡不是應用程序名稱時，是http：協議參數格式時，該函數將打開默認浏覽器的兵連接到指定url地址，若用戶安裝多個浏覽器，將另外根據注冊表中設置打開哪個
2：用IE浏覽器打開的3種方法：
方法1：ShellExecute(Application.Handle, 'open','Iexplore.exe','http://www.baidu.com',nil,SW_SHOWNORMAL);
方法2：
{uses SHDocVw;}
插入個按鍵，其按下函數如下：
var
IE : OleVariant;
begin
IE := CoInternetExplorer.Create;
IE.Visible := True;
IE.Navigate2('http://www.baidu.com');
end;
方法3：
{uses comobj;}
var
Ie:Variant
begin
Ie:=CreateOleObject('InternetExplorer.Application');
Ie.visible:=True;
Ie.left:=300;
Ie.top:=200;
Ie.height:=400;
Ie.width:=600;
Ie.menubar:=0; //隱藏菜單欄
Ie.toolbar:=0; //隱藏工具欄
Ie.addressbar:=0; //隱藏地址欄
//
Ie.statubar:=0; //不可調整大小
Ie.resizable:=0;
Ie.navigate(URL);
end;
begin
OpenInIe('http://www.baidu.com');
end;
3、用delphi中自帶的WebBrowser控件
WebBrowser1.Navigate('http://www.baidu.com'); //WebBrowser1.Navigate('...'); //打開指定頁面
4、用Delphi第三方控件EmbeddedWB
比Delphi自帶的Webbrowser要強悍，其實就是在Webbrowser上的二次開發,附安裝方法：
EmbeddedWB安裝方法：
1.下載壓縮包，飄易下載的是EmbeddedWB v14.67.0版本，下載地址：http://www.delphifans.com/SoftView/SoftView_2705.html。
2.解壓整個壓縮包到 libEmbeddedWB 下；
3.復制 libEmbeddedWB 下的Packages目錄中的EmbeddedWebBrowser_D2007.dpk（因為飄易使用的是DELPHI2007）到Source目錄裡；
4.用Delphi7開發環境打開 EmbeddedWebBrowser_D2007.dpk 文件，按Optios按鈕，作如下調整：
Directories/Conditionals標簽Unit Output Dir=“D:Program FilesCodeGearRAD Studio5.0libEmbeddedWBSource”（具體路徑自行決定）；
5.按Compile, 再按Install；
6.不要保存變化了的dpk文件及壓縮包；
7.在具體的編譯工程時，需檢查該源目錄（D:Program FilesCodeGearRAD Studio5.0libEmbeddedWBSource）在 Delphi IDE 的 “Search Path” 路徑裡（Project -> Options -> irectories/Conditionals -> Search Path）； 如果沒有，添加這個源目錄路徑。否則，在使用該控件的時候，出現“File not found: ‘SHDocVw_EWB.dcu’” 錯誤。
8.可以正常使用了。
