Registry Problem

**voddow**

Hallo und guten Abend,

ich habe ein kleines Problem, undzwar möchte ich aus der Reg die eingetragenen Autostart Programme auslesen und in eine ListBox schreiben, leider bleibt diese immer leer, auch der Wert für 'bla.Count' bleibt leer. Ich hab schon alles Mögliche versucht und überall geguckt, habe auch schon andere Schlüssel ausprobiert, bekomme aber nie ein Ergebniss.
Vielleicht kann mir ja jemand helfen:

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  Registry

var

  reg: TRegistry;

  bla: TStringList;

procedure TForm1.Button4Click(Sender: TObject);

var

i: integer;

begin

 Reg := TRegistry.Create(KEY_ALL_ACCESS);;

 bla := TStringList.Create;

 Reg.RootKey:=HKEY_LOCAL_MACHINE;

 try Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);

    label1.Caption:=inttostr(bla.count);

    for I:=0 to bla.Count - 1 do

        begin

          reg.GetKeyNames(bla);

          Listbox1.Items.add(bla[I]);

        end;

 except

 Listbox1.Items.AddStrings(bla);

 end;

 bla.Free;

 reg.Free;

end;

Registry Problem

Registry Problem

Forumregeln