Registry Problem

[Rastaman]

so is besser

Delphi-Quellcode:

procedure TForm1.Button1Click(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);
          reg.GetValueNames(bla);
          For i := 0 to bla.Count - 1 do
            listbox1.Items.Add(bla[i]);
except
Listbox1.Items.AddStrings(bla)
end;
bla.Free;
reg.Free;
end;

GetValueNames
Keys sind die Ordner und Values die "teile" in den ordnern