Как определить установлен ли Internet Explorer

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

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

uses
  registry;

function IE_installed(var Version: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Internet Explorer', False);
    if ValueExists('Version') then
      Version := ReadString('Version')
    else
      Version := '';
    CloseKey;
    Free;
  end;
  Result := Version <> '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IE_Version: string;
begin
  if IE_Installed(IE_Version) then
    ShowMessage(Format('Internet Explorer %s installed.', [IE_Version]));
end;

Here's a translation of the text into Russian:

Делфи-код, который проверяет, установлен ли Internet Explorer на системе и получает его версию. Вот разбивка каждого шага:

1. Функция IE_installed принимает строковый параметр Version (который будет хранить версию IE) и возвращает логическое значение, указывающее, установлен ли IE.
2. Внутри функции создается объект TRegistry (Reg) для доступа к реестру Windows.
3. Устанавливается ключ реестра HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer.
4. Проверяется, существует ли значение Version в этом ключе с помощью метода ValueExists. Если оно существует, читается строковое значение с помощью метода ReadString и присваивается параметру Version.
5. Если значение не существует (т.е. IE не установлен), присваивается пустой строке.
6. Функция закрывает ключ реестра и освобождает объект TRegistry.
7. Наконец, функция возвращает, является ли Version пустой строкой или нет. Это указывает, установлен ли IE (Result := True) или нет (Result := False).
8. В обработчике события клика кнопки (Button1Click) формы (TForm1) вызывается функция IE_installed и хранится ее результат в переменной IE_Version.
9. Если IE установлен, отображается сообщение с версией с помощью функции ShowMessage.

Альтернативное решение:

uses
  Registry;

function IsInternetExplorerInstalled: Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\Microsoft\Internet Explorer') then
      Result := Reg.ValueExists('Version')
    else
      Result := False;
  finally
    Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsInternetExplorerInstalled then
    ShowMessage('Internet Explorer is installed.')
  else
    ShowMessage('Internet Explorer is not installed.');
end;

В этом варианте код упрощается, убираются ненужные переменные и результат функции IsInternetExplorerInstalled возвращается напрямую.

В статье описывается функция на языке Delphi, позволяющая определить, установлен ли Internet Explorer и версия его установленной версии.

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

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