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
 

相关阅读 >>

Delphi2010:把stringgrid数据保存到excel

Delphi 10.4改进 内联变量声明

Delphi kbmmemtable的简单应用（增删改查示例）

Delphi分离汉字和英文字母

Delphi 文件查找findfirst,findnext,findclose

Delphi 安卓app自动升级

Delphi @ 与 ^ 运算符

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi 获取百度注册页面验证码图片的源代码

Delphi 详解 enumwindows 与 enumwindowsproc

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

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