Registry - Schlüssel auslesen

[devnull]

Hi,

wiedermal ne lästige Frage:
:?: Wie kann ich aus einem Ordner in der Registry sämtliche Einträge auslesen ?


devnull

[mirage228]

Hi!

Schau dir mal TRegistry.GetKeyNames an!

mfG
mirage228

[neolithos]

Delphi hilfe:

Delphi-Quellcode:

TRegistry

schauen.

[devnull]

Ok danke,
das hab ich gesucht !

devnull

[devnull]

Ahhh,

da kommt plötzlich ein Fehler !

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Reg : TRegistry;
    Keys : TStrings;
begin
  Reg := TRegistry.Create;
  Reg.Rootkey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False) then     
  begin
     // Hier kommt ein Fehler
     Reg.GetKeyNames(Keys);
  end;
  Reg.Free;
end;

devnull

[mirage228]

Zitat:

Zitat von devnull

Ahhh,

da kommt plötzlich ein Fehler !

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Reg : TRegistry;
    Keys : TStrings;
begin
  Reg := TRegistry.Create;
  Reg.Rootkey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False) then     
  begin
     // Hier kommt ein Fehler
     Reg.GetKeyNames(Keys);
  end;
  Reg.Free;
end;

devnull

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Reg : TRegistry;
    Keys : TStringList;
begin
  Reg := TRegistry.Create;
  // Man sollte niemals TStrings selbst verwenden! Da ist TStringList besser
  // Ausserdem musst du erst eine Instanz davon erstellen!
  Keys := TStringList.Create; 
  Reg.Rootkey := HKEY_LOCAL_MACHINE;
  if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False) then     
  begin
     // Hier kommt ein Fehler - jetzt nich mehr! :-D
     Reg.GetKeyNames(Keys);
  end;
  Reg.Free;
end;

mfG
mirage228

[devnull]

Der Fehler is weg, aber ich bekomm nur ein "Schlüssel" angezeigt:
>> OptionalComponents

:coder: devnull

[mr2]

Du willst anscheinend alle Werte ermitteln, da ist

Delphi-Quellcode:

  Reg.GetValueNames(...);

besser geignet ;-)

CU mr2

[devnull]

Danke mr2,

das hat den Nagel aufn Kopf getroffen ...
devnull :lol:

[Daniel B]

Und nicht vergessen den geöffneten Key wieder zu schliessen. :roll: CloseKey();