Получить версию IE

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

uses 
  Registry; 

function GetIEVersion(Key: string): string; 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_LOCAL_MACHINE; 
    Reg.OpenKey('Software\Microsoft\Internet Explorer', False); 
    try 
      Result := Reg.ReadString(Key); 
    except 
      Result := ''; 
    end; 
    Reg.CloseKey; 
  finally 
    Reg.Free; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage('IE-Version: ' + GetIEVersion('Version')[1] + '.' 
    + GetIEVersion('Version')[3]); 
  ShowMessage('IE-Version: ' + GetIEVersion('Version')); 
  // <major version>.<minor version>.<build number>.<sub-build number> 
end;

Программа на Delphi, которая извлекает версию Интернета-Эксплорера (IE), установленную на локальном компьютере. Вот разбивка кода:

1. Функция GetIEVersion принимает строку ключа в качестве входного параметра и возвращает версию IE в виде строки.
2. Создается объект TRegistry, чтобы взаимодействовать с реестром Windows.
3. Устанавливается корневой ключ в HKEY_LOCAL_MACHINE и открывается ключ "Software\Microsoft\Internet Explorer".
4. Пытается прочитать значение указанного ключа (например, "Version") как строку и присвоить ее переменной Result.
5. Если возникает ошибка при чтении значения, то устанавливает Result в пустую строку.
6. Наконец, закрывается реестровый ключ и освобождается объект TRegistry.

Процедура Button1Click вызывается, когда пользователь нажимает кнопку на форме. Она вызывает функцию GetIEVersion дважды:

ShowMessage('IE-Version: ' + GetIEVersion('Version')[1] + '.' +
            GetIEVersion('Version')[3]);
ShowMessage('IE-Version: ' + GetIEVersion('Version'));

Первый вызов извлекает основные и минорные номера версии из значения ключа "Version", которое является строкой в формате "X.Y.Z.W", где X - основная версия, Y - минорная версия, Z - номер сборки, а W - подномер сборки. Индексы [1] и [3] извлекают первый и третий символ строки соответственно.

Второй вызов просто извлекает полную строку версии из значения ключа "Version".

Обратите внимание, что это код предполагает, что версия IE хранится в реестре под ключом "Software\Microsoft\Internet Explorer". Это может не быть так на всех системах или для всех версий Интернета-Эксплорера.

Альтернативное решение - использовать более современный подход к извлечению версии IE с помощью интерфейса IExplorer или других API, доступных в Windows. Однако данный код Delphi предоставляет простой и эффективный способ извлечения версии IE из реестра.

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

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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