delphi获取默认浏览器

本文整理自网络，侵删。

 function TRATServer.GetDefaultBrowser:string;//delphi获取默认浏览器
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey(‘HTTP\shell\open\ddeexec\Application’,false);
result:=reg.ReadString(”);
reg.CloseKey;
finally
reg.Free;
end;
end;

编程环境：WindowsXP_SP3+Delphi7
 

相关阅读 >>

Delphi rest请求控件增加请求头时不编码

Delphi 内存补丁

Delphi中实现磁盘信息类(tdriveinfo)

Delphi中实现dll文件自动注册

Delphi 屏蔽汉字，年月日，时间，银行卡正则表达式

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 中的常用事件

Delphi 写日志函数

Delphi mediaplayer android 下播放 mp4 的问题

Delphi 判断驱动器盘符是否有效

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi获取默认浏览器