Пользователь сталкивается с проблемой, когда пытается прочитать 64-битный ключ реестра из 32-битного процесса в операционной системе Windows. Ключ MachineGuid, который находится в HKEY_LOCAL_MACHINE\Software\Microsoft\Cryptography, отсутствует в 32-битном представлении реестра из-за механизма WOW64 (Windows 32-bit on Windows 64-bit). Для доступа к 64-битному представлению ключа необходимо использовать специальный флаг KEY_WOW64_64KEY.
Подтвержденный ответ
Для решения проблемы можно использовать класс TRegistry из библиотеки RegUtils, который позволяет работать с реестром и автоматически управлять доступом к 32-битному или 64-битному представлению реестра в зависимости от того, является ли текущий процесс 32-битным или 64-битным.
Пример кода на Object Pascal (Delphi) для чтения 64-битного ключа реестра:
uses
RegUtils; // Подключаем RegUtils.pas
var
Registry: TRegistry;
s: string;
begin
Registry := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
if Registry.OpenKeyReadOnly('Software\Microsoft\Cryptography') then
s := Registry.ReadString('MachineGuid');
finally
Registry.Free;
end;
end;
Этот код создает экземпляр TRegistry с указанием необходимого уровня доступа к реестру и флага KEY_WOW64_64KEY, который позволяет открыть 64-битное представление реестра. Затем он пытается открыть ключ и прочитать значение MachineGuid.
Альтернативный ответ
Если по каким-то причинам использование TRegistry невозможно, можно воспользоваться утилитой reg.exe, которая доступна в 64-битной версии Windows в директории C:\Windows\sysnative. Пример использования:
Эта команда выполнит чтение значения MachineGuid из 64-битного представления реестра.
Заключение
Использование класса TRegistry является предпочтительным способом чтения ключей реестра в Delphi, так как он упрощает работу с реестром и автоматически обрабатывает различия между 32-битными и 64-битными процессами.
Пользователь сталкивается с трудностью доступа к 64-битному ключу реестра из 32-битного приложения в операционной системе Windows из-за ограничений WOW64, и ищет способ чтения значения ключа `MachineGuid` в 64-битном представлении реестра.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.