uses Registry;
function Navegador: string;
var
Cliente: String;
begin
Result:= '';
with TRegistry.Create do
try
RootKey:= HKEY_LOCAL_MACHINE;
if OpenKey('\SOFTWARE\Clients\StartMenuInternet' ,FALSE) then
begin
Cliente:= ReadString('');
CloseKey;
if OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + Cliente + '\shell\open\command' ,FALSE) then
begin
Result:= ReadString('');
CloseKey;
end;
end;
finally
Free;
end;
end;