Ошибки чтения реестра в сервисных приложениях на Delphi: решение проблемы для Windows 7 x64

Delphi , ОС и Железо , Реестр

Введение

При работе с сервисными приложениями на Delphi, особенно в среде Windows 7 x64, могут возникать проблемы с чтением реестра. Это связано с особенностями работы сервисов и их взаимодействия с системными ресурсами, в том числе с реестром Windows. В данной статье мы рассмотрим, почему может возникать ошибка при чтении значений реестра из сервисного приложения на Delphi 7 и как это можно исправить.

Проблема

Пользователь столкнулся с проблемой, когда при чтении значения реестра в сервисном приложении на Delphi 7, использующем TRegistry с ключами доступа KEY_ALL_ACCESS и KEY_WOW64_32KEY, получал некорректное значение. В частности, для ключа [HKEY_CLASSES_ROOT.html] ожидалось получить значение "ChromeHTML", но вместо этого в переменную Default записывалось значение "htmlfile".

Подробности

Ключ HKEY_CLASSES_ROOT является объединенным представлением ключей HKEY_LOCAL_MACHINE\Software\Classes и HKEY_CURRENT_USER\Software\Classes. Если значение присутствует в HKCU, то оно имеет приоритет над аналогичным значением в HKLM. По умолчанию сервис запускается в отдельном учетной записи, отличной от учетной записи, под которой работает настольное приложение. Из-за этого сервис может не видеть те же данные, что и настольное приложение.

Решение

Для решения проблемы необходимо, чтобы сервис имел доступ к реестру так же, как и настольное приложение. Это можно сделать несколькими способами:

1. Настроить сервис в менеджере служб (SCM) для запуска под учетной записью пользователя.
2. Использовать динамическое подделывание учетной записи пользователя с помощью функции ImpersonateLoggedOnUser() или аналогичной.
3. Получить токен учетной записи пользователя с помощью LogonUser() или OpenProcessToken(), а затем использовать функции LoadUserProfile() и RegOpenUserClassesRoot() для доступа к HKEY_CLASSES_ROOT пользователя.

Пример кода

uses
  Registry;

procedure TServiceApplication.ReadRegistryValue(const RegistryKey, RegistryValue: string; var Value: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(SW_SHOW);
  try
    // Настройка сервиса для запуска под учетной записью пользователя
    if not Reg.ConnectNode('User') then
      Exit;
    try
      Reg.RootKey := HKEY_CLASSES_ROOT;
      Reg.OpenKeyReadOnly(RegistryKey);
      Value := Reg.ReadString(RegistryValue);
    finally
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Заключение

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

Примечание

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

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

При работе сервисного приложения на Delphi в среде Windows 7 x64 возникла проблема с чтением реестра, связанная с различиями в доступе к реестру между сервисом и настольным приложением, и требуется найти решение этой проблемы.

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

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

:: Главная :: Реестр ::