[Winny]

Мне нужно получить все значения папки HKEY_CURRENT_USER\Software (значение ВСЕХ ключей папки Software и всех её подпапок) и перенести все найденные значения в Memo1. Как получить доступ к папке Software я знаю это делается так:
reg.OpenKey('Software',false);
reg.GetValueNames(memo1.Lines);
А вот как получить доступ ко всем подпапкам я не знаю, но предполагаю что это должно быть так:
reg.OpenKey('Software',false,здесь какое то свойство которое указывает на все подпапки);
reg.GetValueNames(memo1.Lines);
Help me please!

[4kusNick]

Код:

{ 

This example demonstrates how to enumerate all registry keys from 

a certain key (here: 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;

[Winny]

Спасибо тебе огромное!