Работа с реестром в Delphi XE4 на 64-битной системе Windows 7: преодолеваем ограничения WOW64

Delphi , Синтаксис , Справочник по API-функциям

Работа с реестром в Delphi XE4 на 64-битной системе Windows 7: преодолеваем ограничения WOW64

Программирование в среде Delphi часто требует работы с системным реестром Windows. Однако, при разработке приложений для 64-битных систем, особенно на Windows 7, могут возникнуть особенности, связанные с WOW64 (Windows 32-bit on Windows 64-bit). Одна из таких проблем связана с доступом к определенным ключам реестра.

Проблема доступа к реестру

Разработчики, использующие Delphi XE4 на 64-битной системе Windows 7, могут столкнуться с ситуацией, когда при настройке целевой системы на 32-битный режим, Delphi игнорирует ключ реестра HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall и вместо этого использует ключ HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall. Это происходит из-за механизма перенаправления реестра, реализованного в Windows для обеспечения совместимости 32-битных приложений на 64-битных системах.

Решение проблемы

Для решения этой проблемы необходимо понимать, что проблема не связана с Delphi напрямую, а является особенностью работы Windows и WOW64. Чтобы получить доступ к нужным ключам реестра, необходимо использовать специальные флаги, которые позволяют 32-битным процессам получить доступ к 64-битному виду реестра, и наоборот.

В Delphi для этого можно использовать флаги KEY_WOW64_64KEY и KEY_WOW64_32KEY при создании экземпляра компонента TRegistry или через свойство Access этого компонента.

Пример кода

var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    // Чтение из 64-битного реестра
  finally
    Registry.Free;
  end;
end;

Или для доступа к 32-битному виду реестра:

var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create(KEY_READ or KEY_WOW64_32KEY);
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    // Чтение из 32-битного реестра
  finally
    Registry.Free;
  end;
end;

Заключение

При работе с реестром в Delphi XE4 на 64-битной системе Windows 7 важно учитывать особенности WOW64, которые могут приводить к перенаправлению доступа к определенным ключам. Использование специальных флагов позволяет разработчикам получать доступ к нужным данным реестра, преодолевая эти ограничения.

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

Описание контекста: Работа с реестром в Delphi XE4 на 64-битной Windows 7 требует учета особенностей WOW64 для корректного доступа к ключам реестра.

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

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

:: Главная :: Справочник по API-функциям ::