Как узнать путь к браузеру по умолчанию

Delphi , Интернет и Сети , Браузер

Автор: http://www.swissdelphicenter.ch

uses
  Registry;

{....}

procedure TForm1.Button1Click(Sender: TObject);
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;
      Label1.Caption := ValueStr;
    end
    else
      ShowMessage('No Default Webbrowser !');
  finally
    Reg.Free;
  end;
end;

Here is the translation of the provided text into Russian:

Код, предоставленный ниже, написан на Delphi и предназначен для извлечения пути по умолчанию браузера веба из реестра Windows.

Вот разбивка того, что код делает:

1. Создается объект TRegistry, который используется для взаимодействия с реестром Windows.
2. Свойство RootKey устанавливается в HKEY_CLASSES_ROOT, которое представляет корневое ключ для ассоциаций файлов в реестре.
3. Код затем открывает подключку, именуемую 'htmlfile\shell\open\command'. Эта подключка содержит информацию о том, как запускать файл HTML с помощью его связанного приложения (т.е., браузера веба).
4. Если подключка успешно открыта, код читает значение пути по умолчанию браузера веба из реестра с помощью Reg.ReadString('').
5. Полученный путь затем отображается в контроле labels, именуемом Label1.

Если ключ не существует или не может быть прочитан, отображается сообщение об ошибке.

Вот другой способ найти путь к браузеру по умолчанию - использовать интерфейс IContextMenu и вызвать метод QueryInterface с IID_IContextMenu, чтобы получить указатель на интерфейс контекстного меню. Затем можно использовать метод GetCommandString, чтобы получить строку команды для команды "Открыть", которая обычно содержит путь к браузеру по умолчанию.

Вот пример, как это можно сделать в Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
  ctxMenu: IContextMenu;
  cmdStr: WideString;
begin
   // Получить интерфейс контекстного меню для файла HTML
  ctxMenu := TContextMenuItem.Create(nil).QueryInterface(IID_IContextMenu);

  if ctxMenu <> nil then
  begin
     // Получить строку команды для команды "Открыть"
    cmdStr := ctxMenu.GetCommandString(1, 0, nil);
  end;

  Label1.Caption := cmdStr;
end;

Обратите внимание, что этот подход требует включения unit shellapi в ваш проект.

В статье описывается способ определения пути к браузеру по умолчанию на компьютере, используя библиотеку Delphi и доступ к регистру Windows.

Комментарии и вопросы

:: Главная :: Браузер ::