Как узнать Веб-браузер, который стоит по-умолчанию в системе?

[Vova777]

Делаю так:

var
  Reg: TRegistry;
  KeyName: string;
  ValueStr: string;
begin
  Reg:= TRegistry.Create;
  try
    Reg.RootKey:= HKEY_CLASSES_ROOT;
    KeyName:= 'htmlfile\shell\open\command';
    if Reg.OpenKey(KeyName, False) then
    begin
      ValueStr:= Reg.ReadString('');
      Reg.CloseKey;
      ShowMessage(ValueStr);
    end
    else
      ShowMessage('There is nоt a default browser');
  finally
    Reg.Free;
  end;
end;

Выводит сообщение в котором указан браузер Internet Explorer. Но у меня стоит Mozilla Firefox. Неверно определяет. Почему?

[alextrof94]

только что гуглил на косвенную этой тему) как раз тебе хотел подобный код кинуть)

[Stilet]

htmlfile\shell\open\command

А еще попробуй из HKEY_LOCAL_MACHINE\SOFTWARE\Classes \http\shell\open\command

[GunSmoker]

Не надо читать реестр.

Для этого есть ShellExecuteEx, FindExecutable или AssocQueryString.