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

Question

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

Answer 1

启动注册表编辑器； 
找到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。 
关闭注册表编辑器。 

Answer 2

同意楼上，改注册表，在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 向一个键中写入某个具体数值，该数值为字符串类型的数据。