Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
reg: TRegistry;
begin
{ - Erzeugen und initialisieren - }
reg := TRegistry.Create;
if ComboBox2.Text = 'Charakter wählen' Then Abort;
if ComboBox2.Text = '' Then Abort;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey
('Software\Vircom\T4C\'+ComboBox1.Text+'\Characters\'+ComboBox2.Text+'\Inventory\',FALSE);
items[0] := reg.ReadInteger('ItemID'+IntToStr(1));
memo1.Lines.Add(IntToStr(items[0]));
{ - Aufräumen - }
FreeAndNil(reg);
end;
In den ComboBoxen wählt man Verzweigungen im Pfad. Der Pfad selbst existiert, das habe ich nachgeprüft in der Regedit. Das wählen mit den Comboboxen geht auch, ich habe mit den Pfad bis zum DWord Wert ItemID1 schon in memo1 anzeigen lassen, das klappt also. Nur das Auslesen des Wertes aus dem DWord-Schlüssel ItemID1 klappt einfach nicht.
als globale Variable ist noch definiert:
items: array of Integer;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]