Registry - Schlüssel auflisten

[GoldNick]

hallo!

ich hab mich heute erst hier neu angemeldet. hab schon gesehn das man hier sehr schnelle und gute hilfe bekommt deswegen wolte ich euch was fragen:

ich progge zur zeit ein programm und das soll einträge aus der registry auslesen.
so das ist aber nicht das problem. das prog liest problemlos den schlüssel und werte aus ...
vorausgesetzt ich gebe den schlüssel an! also es soll alle einträge aus eine von mir angegebenen schlüssel auslesen.

wie kann ich dies erreichen? und wie könnte ich das darstellen - listview?

danke im voraus! :)

[chaosben]

Hi GoldNick!

Herzlich Willkommen in der DP

Zitat von Die Delphihilfe ©Borland:

TRegistry.GetKeyNames Methode

Gibt eine String-Liste mit den Namen aller Unterschlüssel zurück, die zum aktuellen Schlüssel gehören.

Syntax

procedure GetKeyNames(Strings: TStrings); Beschreibung
Mit GetKeyNames ermitteln Sie die Namen aller Unterschlüssel, die dem aktuellen Schlüssel zugeordnet sind. Diese Informationen sind erforderlich, wenn in einer Anwendung über eine Reihe von Schlüsseln iteriert werden soll.

Die Variable Strings besitzt den Typ TStrings und nimmt die Liste mit den Namen der Unterschlüssel auf.

[GoldNick]

chaosben Daaaaanke! :spin2: :bounce1:
Einfach toll dieses Forum!

[GoldNick]

Ich brauch noch mal Hilfe ...

Hab das jetzt geschaft ... aber ich schaff es nur in ein Memo auszugeben. Ich möchte aber gern das ausgelesene in ein TListView darstellen ...

Aber ich weiss nicht genau wie ich das realisieren soll :|

hier der Code mit vielen fehlern...

Delphi-Quellcode:

.......

var
  Form3: TForm3;
  reg: TRegistry;
  ValueList: array[1..100] of String;
  ListItem: TListItem;
  i: Integer;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  reg:=TRegistry.Create;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
  reg.GetValueNames(ValueList);
  ListView1.Items.BeginUpdate;

  for i := 0 to 100 do begin
  ListItem := ListView1.Items.add;
  ListItem.Caption := ValueList[i]
  end;


  ListView1.Items.EndUpdate;
  reg.CloseKey;
  reg.free;
  Button1.Caption:='Gelesen';
  Button1.Enabled:=false;
end;

end.

Hoffe mir kann jemand helfen :(

[Luckie]

Zitat von GoldNick:

hier der Code mit vielen fehlern...

Und die wären?

[Christian Seehase]

Moin Michael,

ein paar fallen mir da auf :
ValueList ist nicht vom Typ TStrings.
Der Erfolg/Misserfolg von OpenKey wird nicht berücksichtigt.
Try/Finally fehlen.
Eventuell noch:
Dem Listview werden immer neue Zeilen hinzugefügt, er wird aber, zumindest nicht hier erkennbar, vorher initialisiert.

[GoldNick]

Kann ich die Werte in ein Array speichern und dan alle Werte einzeln trennen und mit einer neuen Schleife einzeln in ListView hinzufügen? Nur wie? :(

[Zacherl]

Guck dir mal TStringList an ...

Florian

[GoldNick]

Florian Bernd hab ich schon das funktioniert auch super nur leider kann ich das nur bei einen Memofeld ausgeben ...

[Zacherl]

Delphi-Quellcode:

for i := 0 to ValueList.Count -1 do
begin
  with ListView1.Items.Add do
  begin
    Caption := ValueList[i];
  end;
end;

Florian