您的位置:首页 > 编程语言 > Delphi

delphi获取系统安装的默认浏览器

2010-03-20 04:00 1031 查看
function TRATServer.GetDefaultBrowser:string;//获取默认浏览器
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;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: