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;