Delphi用IE浏览器打开网址链接的三种

news/2024/11/17 5:56:08/

简单点可以用默认浏览器打开,方法如下:

uses shellapi

procedure TForm1.Button2Click(Sender: TObject);

begin

ShellExecut(Application.Handle, nil, 'http://iisnine.lofter.com', nil, nil, SW_SHOWNORMAL);

end;

IE打开网址链接的方法第一种:

uses SHDocVw;

procedure TForm1.Button4Click(Sender: TObject);

var

IE : OleVariant;

begin

IE := CoInternetExplorer.Create;

IE.Visible := True;

IE.Navigate2('http://iisnine.lofter.com');

end;

第二种:

uses shellapi

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Application.Handle, 'open','Iexplore.exe','http://iisnine.lofter.com',nil,SW_SHOWNORMAL);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ShellExecute(Application.Handle, nil, 'http://iisnine.lofter.com', nil, nil, SW_SHOWNORMAL);

end;

第三种:

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://iisnine.lofter.com');

end;

还可以用WebBrowser控件

procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Align := alTop;

WebBrowser1.Navigate('http://iisnine.lofter.com');

end;


http://www.ppmy.cn/news/687183.html

相关文章

关于前端页面在IE浏览器下无法显示的问题

由于框架的发展和技术的革新,很多语言必须兼容浏览器才能很好的显示出新的特性和样式,那么我们的前端页面如果在IE浏览器下无法显示时该用什么办法提示用户(提示用户升级浏览器)??? 最实用的办法就是加上判断浏览器是不是IE浏览器的语法: …

关于Chrome浏览器调用IE浏览器

最近遇到一个问题我们想要谷歌浏览器和IE 浏览器兼容 因为有一些产品只支持IE 而我们使用的是谷歌浏览器,所以出现了这么一个问题 在网上找了几天的内容发现都是谷歌4.5版本以下去下载一个IE Tab插件去解决的 但我们使用的是谷歌75最新版本的,安装不上这…

ie退出全屏快捷键_IE浏览器快捷键使用说明 ie浏览器快捷键大全

当我们在使用IE浏览器时,熟练的使用快捷键的能让我们的工作效率大幅度提高,可以使我们上网变的更加流畅方便,下面小编就来给大家科普一下ie浏览器都有那些快捷键,这些快捷键又都有什么作用吧。 一般快捷键 F11打开/关闭全屏模式 T…

springboot校园点餐小程序

校园点餐系统 springboot校园点餐系统小程序 java校园点餐小程序 技术: 基于springbootvue小程序校园点餐系统的设计与实现 运行环境: JAVA版本:JDK1.8 IDE类型:IDEA、Eclipse都可运行 数据库类型:MySql(…

Excel VBA打开IE浏览器的网页

目的:使用 Excel VBA 进行网页抓取(web scraping) 1. 运行IE的前设置(setting) 2.输入代码进行IE调取(Navigate) 3.操作IE打开WEB页面 1. 运行IE的前设置(setting) …

Python爬虫入门4:使用IE浏览器获取网站访问的http信息

☞ ░ 前往老猿Python博客 https://blog.csdn.net/LaoYuanPython ░ 一、引言 在《https://blog.csdn.net/LaoYuanPython/article/details/113055084 Python爬虫入门3:使用google浏览器获取网站访问的http信息》中介绍了使用Google浏览器怎么获取网站访问的http相关报文信息…

IE浏览器被2345网址导航劫持

使用IE时发现主页变成了2345网址导航。进行了各种设置,包括更改浏览器主页,更改注册表,最后不得不换浏览器。 最近发现魔方管理软件中有一个守护,里面有浏览器主页保护设置,修改之后,问题解决。 总结&…

用IE浏览器打开网址https显示不能访问怎么办

目前https是当下比较流行的访问方式,因为加密,所以比http链接更加安全,但偶尔也会有用户反映用IE浏览器打开网址https显示不能访问,这该怎么解决呢? IE浏览器也是大家比较常用的一款浏览器,出现这种情况也…