Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
keys: TStrings;
i: integer;
begin
keys := TStrings.Create();
reg := TRegistry.Create();
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
reg.GetKeyNames(keys);
mmaus.Lines := keys;
end;
end;
hab jetzt TStrings.create gemacht funktioniert aber auch nicht!
wie kann ich das jetzt casten?