Registry durchsuchen

[Volker Z.]

Hallo,

Zitat:

[...] Das klappt aber irgendwie nicht. Ich suche nach einem Wert, der definitiv (jedenfalls lt. regedit) vorhanden ist und er wird trotzdem nicht gefunden.

Naja, wenn regedit sagt, dass der Wert in der Registry steht, dann wird das schon so sein; wenn Dein Programm den Wert nicht findet liegt es wohl an Deiner Programmierung.

Zitat:

Aktuell sieht mein Code jetzt so aus:

Und da haben wir es schon:

1. Du versuchst einen Wurzelknoten (EmptyString) zu öffnen (was nur [in Deinem Fall] bei HKEY_LOCAL_MACHINE klappt, ansonsten raus aus der procedure)
2. Du liest alle Unterschlüssel ein (KeyList)
3. Du liest alle Wertebezeichner ein (ValueList)
4. Du schließt den geöffneten Schlüssel
5. Du versuchst auf Daten eines geschlossenen Schlüssels zuzugreifen (was nicht funktioniert)
6. Du gehst (nicht über Los, sondern direkt) mit dem aktuellen CurrentKey (da der bereits geschlossen wurde und 0 ist) zu Schritt 1. (das funktioniert aber nicht, himitsu und meinereiner hatten das aber schon gesagt)

Da wundert es nicht, dass Du nix findest!

Zu 1.: Wenn Du nur in einen bestimmten Hauptschlüssel (z. B. HKEY_LOCAL_MACHINE) suchen möchtest, dann kannst Du das konstant gestalten, ansonsten immer den Hauptschlüssel als Parameter übergeben
Zu 2.: Warum zwei Listen, wenn es in diesem Fall auch mit einer geht?
Zu 3.: Dito
Zu 4.: Lass das bleiben
Zu 5.: Dito
Zu 6.: Lass CurrentKey weg (entweder konstant oder den Hauptschlüssel per Parameter, den "Pfad" oder Unterschlüssel relativ übergeben)

In Code gegossen vielleicht so (Hauptschlüssel per Parameter):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   SearchString : string;

   procedure EnumAllKeys (const Root : HKEY; const Key : string);
   var
     r : TRegistry;
     l : TStringList;
     i : Integer;
     s : string;
   begin
     r := TRegistry.Create;
     l := TStringList.Create;
     try
       r.RootKey := Root;

       if r.OpenKeyReadOnly (Key) then
         begin
           r.GetValueNames (l);
           for i := 0 to l.Count - 1 do
             begin
               s := l [i];
               if Pos (SearchString, UpperCase (s)) > 0 then
                 ListBox1.Items.Add ('[val] ' + r.CurrentPath + '\' + s);

               if r.GetDataType (s) in [rdString, rdExpandString] then
                 begin
                   s := r.ReadString (s);
                   if Pos (SearchString, UpperCase (s)) > 0 then
                     ListBox1.Items.Add ('[con] ' + r.CurrentPath + '\' + s)
                 end
             end;

           r.GetKeyNames (l);
           for i := 0 to l.Count - 1 do
             begin
               s := l [i];
               if Pos (SearchString, UpperCase (s)) > 0 then
                 ListBox1.Items.Add ('[key] ' + r.CurrentPath + '\' + s);

               EnumAllKeys (Root, r.CurrentPath + '\' + s)
             end
         end
     finally
       r.Free;
       l.Free
     end
   end;

begin
   SearchString := 'PRINT';
   EnumAllKeys (HKEY_CURRENT_CONFIG, '')
end;

Vielleicht hilft 's

Gruß