Использование Delphi: Альтернативный способ определения версии Internet Explorer без реестра

Delphi , Интернет и Сети , Компоненты и Интернет

При разработке программ на Delphi иногда возникает необходимость определения версии Internet Explorer, используемого на компьютере пользователя. Один из способов — обращение к реестру, но он может быть нестабильным и вызывать ошибки, особенно в случаях, когда ключ в реестре отсутствует. В этом материале мы рассмотрим альтернативный метод определения версии IE, который не зависит от реестра.

Оригинальный метод с использованием реестра

Исходный код функции, использующей реестр, выглядит следующим образом:

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

Проблемы с использованием реестра

Как видно из обсуждения, метод с использованием реестра может не работать в некоторых случаях, возвращая ноль, если ключ отсутствует. Это может быть связано с ограничениями прав доступа (Access), которые по умолчанию установлены в KEY_ALL_ACCESS, доступные только администраторам. Использование TRegistry.OpenKeyReadOnly может помочь решить эту проблему.

Альтернативный метод без использования реестра

В качестве альтернативы можно использовать метод, который сначала находит путь к исполняемому файлу iexplore.exe, а затем извлекает информацию о версии файла. Пример кода для получения пути к iexplore.exe:

function GetIEPath: string;
var
   Reg: TRegistry;
   Len: Integer;
begin
   Result := '';
   Reg := TRegistry.Create;
   with Reg do
   begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKeyReadOnly('CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32');
      Result := ReadString('');
      CloseKey;
      // Очистка строки от кавычек
      Len := Length(Result);
      if Len >= 2 then
      begin
         if Result[Len] = '"' then
            Delete(Result, Len, 1);
         if Result[1] = '"' then
            Delete(Result, 1, 1);
      end
      else
         Result := '';
   end;
   Free;
end;

Затем, используя API функции для работы с версиями файлов, можно извлечь информацию о версии IE. Пример функции для получения версии IE:

function GetIEVersion: string;
var
   IEPath: string;
   VerInfoSize: DWORD;
   VerInfo: Pointer;
   VerValueSize: DWORD;
   VerValue: PVSFixedFileInfo;
   Dummy: DWORD;
begin
   Result := '0';
   IEPath := GetIEPath;
   if IEPath = '' then
      Exit;
   // Получение информации о версии файла
   // ...
end;

Заключение

Использование альтернативного метода определения версии Internet Explorer без обращения к реестру может быть более надежным и удобным в тех случаях, когда реестр недоступен или его использование нежелательно. Приведенный выше код предоставляет базовый пример, который можно дополнительно адаптировать и улучшить в соответствии с требованиями вашего проекта.

Создано по материалам из источника по ссылке.

Приведен пример кода на языке Pascal для альтернативного определения версии Internet Explorer в приложениях Delphi, используя метод, не зависящий от реестра, и обсуждение преимуществ этого подхода.

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

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

:: Главная :: Компоненты и Интернет ::