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 更新时间: