Registry-Folder auslesen

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
Reg:tregistry ;
keys:tstringlist ;

begin
   Reg := TRegistry.Create;
   keys := TStringList.Create;
   try
     reg.Rootkey:=HKEY_CURRENT_USER;
     if reg.OpenKey('Software\Microsoft\Windows\Run',true) then
       begin
         Reg.GetKeyNames(Keys);         //// hier schmiert er iwie ab
         keys.Add(memo1.Text);
       end;
     //hier noch irgendwas mit keys machen
   finally
     reg.Free;
     keys.Free;
  end;
end;