Получить количество вложенных ключей и значений ветви реестра
Материал из DRKB
Получить количество вложенных ключей и значений ветви реестра[править | править код]
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;
Author: ___Nikolay
Source: http://delphiworld.narod.ru/
ID: 02288