Registry-Folder auslesen

[DeddyH]

Nu mal langsam: GetKeyNames listet Dir alle Unterschlüssel (sofern vorhanden). Was willst Du denn aufgelistet bekommen?

[Counter909]

also ich hatte ja in meinem Source oben:

'Software\Microsoft\Windows\CurrentVersion\Run'


doch wenn ich das so lasse, dann passiert gar nichts.

erst wenn ich:

'Software\Microsoft\Windows\CurrentVersion'

nehme, und wenn ich selber mal in der Regisrty gucke, dann sieht man ja dass bis ...\Windows noch Unterordner sind.
Aber "Run" besitzt ja keine mehr! unnd ich wollt ja eben dass die Keys innerhalb des Ornders "Run" angezeigt werden.




[Später will ich dann noch dass man selber den pfad wählen kann, aber das später]

[DeddyH]

Hier mal eine kleine Demo. Pack dazu mal eine ListView auf Dein Formular.

Delphi-Quellcode:

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
    sList: TStringList;
    i: integer;
    Item: TListItem;
    Column: TListColumn;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.Clear;
  Column := ListView1.Columns.Add;
  Column.Caption := 'Name';
  Column.AutoSize := true;
  Column := ListView1.Columns.Add;
  Column.Caption := 'Wert';
  Column.AutoSize := true;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  sList := TStringList.Create;
  try
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false) then
      begin
        Reg.GetValueNames(sList);
        for i := 0 to sList.Count - 1 do
          begin
            Item := ListView1.Items.Add;
            Item.Caption := sList[i];
            Item.SubItems.Add(Reg.ReadString(sList[i]));
          end;
        Reg.CloseKey;
      end;
  finally
    Reg.Free;
    sList.Free;
  end;
end;