请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1559|回复: 6

[未解决] 请问如何设置IE为默认浏览器

  [复制链接]

24

主题

92

帖子

322

积分

中级会员

Rank: 3Rank: 3

积分
322
发表于 2014-9-17 16:14:28 | 显示全部楼层 |阅读模式
开发交流
支持版本: Delphi 7 
资源分类: 其他 

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

x
请问如何通过Delphi设置IE为默认浏览器?操作系统为Win7,首先说一下这个注册表无效HKEY_CLASSES_ROOT\http\shell\open\command,因为它的内容是360的,而不是IE的,但是实际上,默认浏览器打开的是IE(手动设置的)。
转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=1395 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

5

主题

190

帖子

2532

积分

金牌会员

Rank: 6Rank: 6

积分
2532
发表于 2014-9-18 16:31:17 | 显示全部楼层
引自网页:
var
  reg: TRegistry;
  s: String;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.OpenKey('HTTP\Shell\open\command',False);
  s := reg.ReadString('');//读取注册表的值 如:"D:\Program Files\Maxthon3\Bin\Maxthon.exe" "%1"
这个string就是浏览器默认的值,你可以用reg.writestring写入你想要的值,比如C:\windows\iexplorer.exe
回复 支持 反对

使用道具 举报

24

主题

92

帖子

322

积分

中级会员

Rank: 3Rank: 3

积分
322
 楼主| 发表于 2014-9-18 17:02:40 | 显示全部楼层
lyhoo 发表于 2014-9-18 16:31
引自网页:
var
  reg: TRegistry;

呵呵,无效,我主题里已经强调了,不知道为什么
回复 支持 反对

使用道具 举报

5

主题

190

帖子

2532

积分

金牌会员

Rank: 6Rank: 6

积分
2532
发表于 2014-9-20 08:38:13 | 显示全部楼层
请在USES中,加入Registry
回复 支持 反对

使用道具 举报

5

主题

190

帖子

2532

积分

金牌会员

Rank: 6Rank: 6

积分
2532
发表于 2014-9-20 08:39:20 | 显示全部楼层
这是要引用Registry单元,才能使用TRegistry对象。
回复 支持 反对

使用道具 举报

24

主题

92

帖子

322

积分

中级会员

Rank: 3Rank: 3

积分
322
 楼主| 发表于 2014-9-22 08:34:32 | 显示全部楼层
lyhoo 发表于 2014-9-20 08:39
这是要引用Registry单元,才能使用TRegistry对象。

这还用说?没有这个单元,是编译报错,你知道么?我说的是无效,无效就是改了注册表也没有作用,如果你电脑上装了其他浏览器,且默认的不是IE,你先在IE设置为IE为默认,不用Delphi去编程,直接在系统李打开注册表去看那个注册键的值,还是原来的。
回复 支持 反对

使用道具 举报

0

主题

1

帖子

14

积分

新手上路

Rank: 1

积分
14
发表于 2017-9-26 13:11:07 | 显示全部楼层
本帖最后由 yj40805 于 2017-9-26 13:13 编辑

注册表位置错了正
回复 支持 反对

使用道具 举报

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

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2017-10-17 21:28 , Processed in 0.157866 second(s), 33 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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