[Kapitoshka438]

Вот такой дурацкий способ я нашел.

Код:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  KeyName: string;
  ValueStr: string;
  S: 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;
    end
  finally
    Reg.Free;
  end;
  S := Copy(ValueStr, 2, Length(ValueStr) - Pos('"', ReverseString(ValueStr)) - 1);
  ShellExecute(0, 'open', PChar(S), PChar(Edit1.Text), nil, SW_SHOW);
end;

здесь ищется путь к браузеру по умолчанию.