Перечислить ключи реестра

Советы » Реестр » Перечислить ключи реестра

{ 
  This example demonstrates how to enumerate all registry keys from 
  a certain key (here: HKEY_CURRENT_USER) 
}

 { 
  Dieses Beispiel listet alle Eintrage eines bestimmten Schlussels 
  in der Registrierung auf. (hier: HKEY_CURRENT_USER) 
}



 uses

Registry; procedure

TForm1.Button1Click(Sender: TObject); var

indent: Integer; procedure

EnumAllKeys(hkey: THandle); var

l: TStringList; n: Integer; begin

Inc(indent, 2); with

TRegistry.Create do

try

RootKey := hkey; OpenKey(EmptyStr, False); l := TStringList.Create; try

GetKeynames(l); CloseKey; for

n := 0 to

l.Count - 1 do

begin

memo1.Lines.Add(StringOfChar(' ', indent) + l[n]); if

OpenKey(l[n], False) then

begin

EnumAllKeys(CurrentKey); CloseKey; end

; end

; finally

l.Free end

; finally

Free; end

; Dec(indent, 2); end

; begin

Memo1.Clear; Memo1.Lines.Add('Keys under HKEY_CURRENT_USER'); indent := 0; Memo1.Lines.BeginUpdate; try

EnumAllKEys(HKEY_CURRENT_USER); finally

Memo1.Lines.EndUpdate; end

; end

;

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

Категории

Статьи

Советы

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