Fórum Com saber em RunTime qual Navegador é o padrão #458321

ainda não tive resposta

Antonio,

verifique o registro do windows "HKEY_CLASSES_ROOT\http\shell\open\command"

Espero ter ajudado.

att


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label1.Caption := BuscarBrowserPadrao;
end;

function TForm1.BuscarBrowserPadrao: String;
// Retorna o Path de seu Browser padrão
// Requer a Registry declarada na clausual Uses da unit
var
Browser: String;
I: Integer;
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
try
RootKey := HKEY_CLASSES_ROOT;
if not OpenKey('httpshellopencommand',False) then
begin
Browser := '';
end
else
begin
Browser := ReadString('');
end;
CloseKey;
finally
Free;
Reg := nil;
end;
I := Pos('.exe',LowerCase(Browser));
if I > 0 then
begin
Browser := Copy(Browser, 1, (I+3));
end;
I := Pos('"',Browser);
while I > 0 do
begin
Delete(Browser,1,I);
I := Pos('"',Browser);
end;
end;
Result := Browser;
end;

Só uma correção no código!
O correto é este:

1-Alguém saberia com passar o IE como padrão em RunTime ?
2-Como pegar a Versão do Navegador padrão ?

Desde já meus agadecimentos

100+

ANT.CARLOS/SP

Tive uma experiência amarga com o Win-7.
Atualizo o IE como navegador padrão e edito os registro do windows e vejo que o nagavedado continua o FireFox.exe.
No win-XP a atualizacao funciona normal, problema mesmo só no win-7 32 e 64, win-8 aind não vi.

100+

ANT.CARLOS/SP