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
 

相关阅读 >>

dll 使用 pchar 参数的小例子

Delphi 打开网页的两种方法

Delphi双进程监控

Delphi之tstrings和tstringlists类

Delphi 如何得到动态链接库的输出函数tdump命令

Delphi钩子注入程序

Delphi 利用sendinput模拟鼠标键盘

Delphi dbgrid刷新数据

Delphi获取文件创建时间、文件最后修改时间

Delphi之format函数

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

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