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;
|
请发表评论