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:

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;

[Matze]

Da, wo du

Delphi-Quellcode:

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

Aufrufst, ist bla.count natürlich 0, du hast ja noch nichts in die StringList geschrieben.

[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 :zwinker:

[shmia]

Das übliche Registry - Problem: beschränkte Zugriffsrechte auf HKEY_LOCAL_MACHINE:

Delphi-Quellcode:

// Reg := TRegistry.Create(KEY_ALL_ACCESS);
Reg := TRegistry.Create(KEY_READ);  // wir wollen nur lesen
bla := TStringList.Create; 
Reg.RootKey:=HKEY_LOCAL_MACHINE;

[kiar]

hallo voddow,

herzlich willkommen in der dp,

bevor du hier postet, kannst du die suche benutzen um den goßen fundus der dp auszukosten.

dies sollte dir weiterhelfen hier

[edit=Admin]Link korrigiert. Mfg, Daniel[/edit]

[voddow]

Hat sich schon erledigt aber Danke habs selber rausgefunden trotzdem Danke Gerrit denn genau das war der Fehler!