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;　　