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

Previous  Top  Next

    
 

 

Code:

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;

 

Автор: ___Nikolay

©Drkb::02288

http://delphiworld.narod.ru/

DelphiWorld 6.0