Registry - Schlüssel auslesen

[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