鱼C论坛

 找回密码
 立即注册
查看: 3025|回复: 1

[技术交流] delphi打开网址的几种方法

[复制链接]
发表于 2016-6-1 07:15:36 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
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');
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-12-18 08:46:39 | 显示全部楼层
本帖最后由 心驰神往 于 2020-12-18 15:25 编辑

[img][/img]好东西
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 15:04

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表