delphi 指定在IE浏览器或IE内核打开链接
uses System.Win.ComObj;
procedure OpenInIE(url: string);
var
IE: OleVariant;
begin
// IE := CoInternetExplorer.Create;
// IE.Visible := True;
// IE.Navigate2(url);
IE := CreateOleObject('InternetExplorer.Application');
IE.visible := True;
IE.Navigate(url);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenInIE('http://www. .com/');
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.050491809844971 seconds