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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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

Автор: ___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;