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

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

uses

Registry; // Количество вложенных ключей и значений procedure

TForm1.Button1Click(Sender: TObject); const

sKey = 'SOFTWAREMicrosoftWindowsCurrentVersion'; 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com