Registry - Schlüssel auslesen

[mirage228]

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