Delphi 動態打開網頁/網址的幾種方式

Delphi 動態打開網頁/網址的幾種方式

1、使用TWebBrowser

uses
  OleCtrls,
  SHDocVw;

var 
  WB:TWebBrowser;
begin
  WB:=TWebBrowser.Create(Self);
  Self.InsertControl(WB);   // 將WB作為子控件插入到當前窗體中     動態創建
  WB.Align:=alClient;
  WB.Silent:=True;       //不顯示腳本錯誤
  WB.Navigate('https://www.cnblogs.com/guorongtao/');
end;

2、使用ShellAPI (推薦)

uses
  ShellAPI;

begin
  ShellExecute(Application.Handle, nil,'https://www.cnblogs.com/guorongtao/', nil, nil, SW_SHOWNORMAL);  //默認瀏覽器打開

  ShellExecute(Application.Handle, 'open','Iexplore.exe','https://www.cnblogs.com/guorongtao/',nil,SW_SHOWNORMAL);   //指定IE瀏覽器打開
end;

3、使用 CoInternetExplorer（不推薦）

uses
  SHDocVw;

var
  WB : OleVariant;
begin
  WB := CoInternetExplorer.Create;      //用的是IE的內核
  WB.Visible := True;
//  WB.Navigate('https://www.cnblogs.com/guorongtao/'); //默認瀏覽器打開
  WB.Navigate2('https://www.cnblogs.com/guorongtao/');  //默認瀏覽器打開
end;

4、使用 CreateOleObject（不推薦）　　

uses
  ComObj;

var
  WB:Variant;
begin
  WB:=CreateOleObject('InternetExplorer.Application');   //用的是IE的內核
  WB.navigate('https://www.cnblogs.com/guorongtao/');     //在默認瀏覽器中打開
end;　　

　　

 

 

 

創建時間：2022.03.04　　更新時間：