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