如何用Delphi设置将某种浏览器为默认？

[kenwoodking]

IE或者是腾讯的浏览器中启动时一开始会弹出“是否将**浏览器设置为默认？”的对话框，请问点击确认后实现的功能怎样在程序中实现？

[mattus_zhao]

对，使用注册表

[SunRoll]

可以从系统注册表入手呀，试试吧

[torble]

When you select Make this the default browser in Internet Explorer and later
versions of Netscape, the browser registers itself into all of the following
keys to make it the "default" browser (Even though more entries are being
written).

HKEY_CLASSES_ROOT\.htm
HKEY_CLASSES_ROOT\.html
HKEY_CLASSES_ROOT\http\shell\open\command
HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application
HKEY_CLASSES_ROOT\ftp\shell\open\command
HKEY_CLASSES_ROOT\ftp\shell\open\ddeexec\Application
HKEY_CLASSES_ROOT\gopher\shell\open\command
HKEY_CLASSES_ROOT\gopher\shell\open\ddeexec\Application

[Liusp]

关注

[torble]

将以上键值设置为浏览器的关联～

[fontain]

启动注册表编辑器；
找到HKEY_CLASSES_ROOT\http\shell\open\command，双击default，将用户希望的浏览器的可执行文件的完全路径输入到这里，例如：输入“C:\Program Files\Internet Explorer\iexplore.exe”；
单击“确定”；
然后找到HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application，双击Default，设置浏览器名，如果是Netscape则输入NSShell，如果是IE则输入IExplore。
关闭注册表编辑器。

[cpplus]

同意楼上，改注册表，

在D e l p h i中，可以通过T R e g i s t r y类方便地对注册表进行操作。使用T R e g i s t r y类的时候，要
在u s e s语句中包含r e g i s t r y单元。
下面是T R e g i s t r y类中定义的几个常用的方法：
• CloseKey 关闭一个键。
• CreateKey 创建一个新键。
• DeleteKey 删除一个已经存在的键。
• DeleteValue 删除键中的一个数值。
• HasSubKeys 测试一个键是否有子键。
• KeyExists 测试一个键是否存在。
• OpenKey 打开一个键。
• ReadBool 读取一个键中某个具体数值，该数值为布尔类型的数据。
• ReadInteger 读取一个键中某个具体数值，该数值为整数类型的数据。
• ReadString 读取一个键中某个具体数值，该数值为字符串类型的数据。
• WriteBool 向一个键中写入某个具体数值，该数值为布尔类型的数据。
• WriteInteger 向一个键中写入某个具体数值，该数值为整数类型的数据。
• WriteString 向一个键中写入某个具体数值，该数值为字符串类型的数据。

[kenwoodking]

哇,全是用注册表,有没有其他的办法呀?我现在的水平还不怎么敢用程序去碰注册表,呵呵.

[brallow]

如果不用注册表的话就没有办法了，至少我没有