einzelnen TRegistry-Wert auslesen

[Counter909]

HI

i-wie hab ich ein kleines Problem mit der Registry, ich kann normal auch die schlüssel auslesen, das ist alles kein Problem, doch möchte ich zu dem getvaluename noch den Wert, aber i.wie schaff ich das nicht und anschließend sollen diese gespeichert werden.


das hab ich bis jetzt und es wird nur eine .txt erstellt mit nichts drin:

Code:

procedure Keysauslesen;
var a: Tstringlist;
    b:string;
    b2:string;
    test:string;
begin
   a:=tstringlist.Create;
   regist2:=Tregistry.Create;
   b:= 'Software\Electronic Arts\....';
   with
   regist2 do
     begin
        try
         rootkey:= HKEY_LOCAL_MACHINE;
         if OpenKey(b,false) then
         begin regist2.GetKeyNames(a);
         end;
         finally
         regist2.Free;
         end;
         a.Add(test);
         a.SaveToFile('C://test.txt');

 end;
 end;