Thema: Delphi TStrings ausgeben

Einzelnen Beitrag anzeigen

geisi

Registriert seit: 19. Sep 2003
449 Beiträge
 
Delphi 6 Professional
 
#10

Re: TStrings ausgeben

  Alt 17. Okt 2005, 21:40
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?
mfg geisi
  Mit Zitat antworten Zitat