Delphi打开网址链接的几种方法

您所在的位置：网站首页 › 上海美光是外企吗 › Delphi打开网址链接的几种方法

Delphi打开网址链接的几种方法

2023-05-18 06:56| 来源: 网络整理| 查看: 265

Delphi打开网址链接的几种方法原创

zhongguoren666 2023-05-08 14:50:07 博主文章分类：Delphi ©著作权

文章标签 delphi webbrowser 浏览器 url string 文章分类 Python 后端开发

©著作权归作者所有：来自51CTO博客作者zhongguoren666的原创作品，请联系作者获取转载授权，否则将追究法律责任

Delphi打开网址链接的几种方法： 1：用默认浏览器打开,

uses shellapi procedure TForm1.Button2Click(Sender: TObject); begin ShellExecut(Application.Handle, nil, 'http://cy03wqh.blog.163.com', nil, nil, SW_SHOWNORMAL); end; 2：用IE浏览器打开的3种方法： {uses shellapi} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Application.Handle, 'open','Iexplore.exe','http://cy03wqh.blog.163.com',nil,SW_SHOWNORMAL); end; procedure TForm1.Button2Click(Sender: TObject); begin ShellExecute(Application.Handle, nil, 'http://cy03wqh.blog.163.com', nil, nil, SW_SHOWNORMAL); end; // uses SHDocVw; procedure TForm1.Button4Click(Sender: TObject); var IE : OleVariant; begin IE := CoInternetExplorer.Create; IE.Visible := True; IE.Navigate2('http://cy03wqh.blog.163.com'); end; 3： comobj procedure TForm1.Button1Click(Sender: TObject); procedure OpenInIe(URL:string); 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://cy03wqh.blog.163.com'); end; 4：用 WebBrowser控件 procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Align := alTop; WebBrowser1.Navigate('http://cy03wqh.blog.163.com'); 赞收藏评论分享举报

上一篇：delphi中Webbrowser

下一篇：delphi webbrowser与delphi互动

【本文地址】

Delphi打开网址链接的几种方法

Delphi打开网址链接的几种方法

今日新闻

推荐新闻