Как исправить проблему с пустым Memo в Delphi: работа с VID-номерами USB-устройств

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

При работе с реестром в Delphi важно правильно настроить доступ к ключам и подключам. В данном случае рассмотрим проблему, когда при попытке прочитать VID-номера USB-устройств из реестра, содержимое Memo остается пустым. Приведенный ниже код не возвращает ожидаемые данные:

procedure FindUSBvids(VIDs: TStrings);
var
  Reg1: TRegistry;
begin
  Reg1 := TRegistry.Create;
  try
    Reg1.RootKey := HKEY_LOCAL_MACHINE;
    Reg1.OpenKey('System\CurrentControlSet\Enum\USB', False);
    Reg1.GetKeyNames(VIDs);
  finally
    Reg1.Free;
  end;
end;

Проблема заключается в том, что метод OpenKey открывает ключ с правами чтения и записи, что может быть заблокировано системой безопасности Windows, особенно на Windows Vista и более новых версиях. Для решения этой проблемы следует использовать метод OpenKeyReadOnly, который открывает ключ только для чтения:

Reg1.OpenKeyReadOnly('System\CurrentControlSet\Enum\USB');

Также стоит отметить, что перед использованием GetKeyNames необходимо проверить успешность открытия ключа:

if Reg1.KeyExists('System\CurrentControlSet\Enum\USB') then
begin
  Reg1.OpenKeyReadOnly('System\CurrentControlSet\Enum\USB');
  Reg1.GetKeyNames(VIDs);
end;

В зависимости от операционной системы и настроек безопасности, может потребоваться запуск приложения с правами администратора. Однако это не всегда лучший подход, так как может представлять дополнительные риски безопасности. Рекомендуется использовать OpenKeyReadOnly и убедиться, что приложение запрашивает только необходимые права доступа.

Если вы работаете с ключами, которые требуют более высокого уровня доступа, и вы уверены, что это необходимо, можно создать экземпляр TRegistry с заданными правами доступа:

Reg1 := TRegistry.Create(KEY_READ);

Тем не менее, использование OpenKeyReadOnly обычно является предпочтительным, так как он пытается открыть ключ с различными комбинациями прав доступа, что увеличивает шансы на успешное чтение:

Reg1.OpenKeyReadOnly('System\CurrentControlSet\Enum\USB', KEY_READ or KEY_QUERY_VALUE or KEY_ENUMERATE_SUB_KEYS);

Следуя этим рекомендациям, вы сможете корректно работать с VID-номерами USB-устройств в Delphi, и проблема с пустым Memo будет решена.

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

Проблема с пустым Memo в Delphi при попытке прочитать VID-номера USB-устройств из реестра решается путем использования метода OpenKeyReadOnly и проверки успешности открытия ключа, а также может потребовать запуска приложения с правами администратора или

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

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

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