Получить количество вложенных ключей и значений ветви реестра

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

Автор: ___Nikolay
WEB-сайт: http://delphiworld.narod.ru

uses Registry;

// Количество вложенных ключей и значений
procedure TForm1.Button1Click(Sender: TObject);
const
  sKey = '\SOFTWARE\Microsoft\Windows\CurrentVersion';
var
  rReg: TRegistry;
  ki: TRegKeyInfo;
begin
  rReg := TRegistry.Create;
  with rReg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    if KeyExists(sKey) then
    begin
      OpenKey(sKey, false);
      GetKeyInfo(ki);
      CloseKey;

      lbSubkeys.Caption := IntToStr(ki.NumSubKeys);
      lbValues.Caption := IntToStr(ki.NumValues);
    end;
  end;
  rReg.Free;
end;

Here's the translation of the text into Russian:

Код на Delphi использует компонент Registry, чтобы получить информацию о конкретной регистрационной ключе и его подключениях и значениях.

Вот, что код делает:

1. Он создает экземпляр класса TRegistry, который представляет собой регистрационный ключ.
2. Он устанавливает корневой ключ в HKEY_LOCAL_MACHINE (HKLM) с помощью свойства RootKey.
3. Он проверяет, существует ли указанный ключ (sKey) с помощью метода KeyExists.
4. Если ключ существует, он открывает ключ с помощью метода OpenKey с параметром false, что означает, что ключ не будет создан, если он не существует.
5. Он получает информацию о ключе с помощью метода GetKeyInfo, который заполняет запись TRegKeyInfo данными о ключе. Свойство NumSubKeys возвращает количество подключений, а свойство NumValues возвращает количество значений.
6. Он закрывает ключ с помощью метода CloseKey.
7. Наконец, он обновляет заголовки двух компонентов TLabel (lbSubkeys и lbValues) количеством подключений и значений соответственно.

Код quite эффективен и легко понятен. Однако, есть несколько предложений для улучшения:

• Вместо использования магических чисел (например, HKEY_LOCAL_MACHINE), рекомендуется определить константы для них.
• Можно использовать блок try-finally, а не явное обрабатывание ошибок, чтобы обеспечить закрытие регистрационного ключа, даже если возникает исключение.
• Рекомендуется добавить более robust обрабатывание ошибок, например, проверять возвращаемое значение GetKeyInfo и обрабатывать любые потенциальные ошибки.

Вот обновленная версия кода:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
const
  HKEY_LOCAL_MACHINE = $80000002;
  sKey = '\SOFTWARE\Microsoft\Windows\CurrentVersion';
var
  rReg: TRegistry;
  ki: TRegKeyInfo;
begin
  try
    rReg := TRegistry.Create;
    with rReg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      if KeyExists(sKey) then
      begin
        OpenKey(sKey, false);
        GetKeyInfo(ki);
        lbSubkeys.Caption := IntToStr(ki.NumSubKeys);
        lbValues.Caption := IntToStr(ki.NumValues);
      end;
    end;
  finally
    rReg.Free;
  end;
end;

Обновленный код определяет константу для значения HKEY_LOCAL_MACHINE, использует блок try-finally для обеспечения закрытия регистрационного ключа и добавляет более robust обрабатывание ошибок.

Статья описывает способ получения количества вложенных ключей и значений ветви реестра Windows с использованием языка программирования Delphi.

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

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

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