Einzelnen Beitrag anzeigen

chrissi

Registriert seit: 22. Sep 2004
9 Beiträge
 
Delphi 5 Standard
 
#8

Re: Probleme mit dem Aufruf von reg.ReadBinaryData

  Alt 9. Okt 2004, 17:21
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  reg: TRegistry;

begin
  { - Erzeugen und initialisieren - }
  reg := TRegistry.Create;


  if ComboBox2.Text = 'Charakter wählenThen 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]
  Mit Zitat antworten Zitat