Eintrag in Registrierungsdatenbank schreiben

[Chrissi91]

Hi,

meine Frage: Bin ich dumm oder bin ich dumm? :stupid: :gruebel:

Delphi-Quellcode:

var
  R: TRegistry;
begin
  R := TRegistry.Create(HKEY_LOCAL_MACHINE);
  R.OpenKey('SOFTWARE\Pyrgo\Vertretungsplan\', False);
  R.WriteString('Hash', MD5Print(MD5String(edtPw1.Text)));
  R.Free;

Ich habe bei OpenKey sowohl True, als auch False ausprobiert (Hab wieder vergessen wozu das gut war).

Ich verstehe nicht, warum er bei mir keinen Eintrag erstellt (natürlich habe ich die Rechte dazu, auf die Reg-DB zuzugreifen.), dabei habe ich den Code 1:1 aus einem alten Programm kopiert, wo es eigentlich funktioniert hat ... :mrgreen:

EDIT: Ganz vergessen. Der Key existiert vorher nicht, das Verzeichnis Pyrgo\Vertretunsplan auch nicht. Aber ich glaube da ist das True bzw. False für verantwortlich bei OpenKey (True müsste glaube ich für Erstellen bzw. Überschreiben sein.)

[RavenIV]

Da fehlt das CloseKey.
Erst von CloseKey wird der Wert in die Registry geschrieben.

P.S.
Du bist dumm ;-)

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\Pyrgo\Vertretungsplan\', true) then
      begin
        Reg.WriteString('Foo','Bar');
        Reg.CloseKey;
      end;
  finally
    Reg.Free;
  end;
end;

[Chrissi91]

:wall: :wall: :wall:

Das ist ja dasselbe wie mit AssignFile und CloseFile ....

Naja, mein Infolehrer hätte den Fehler eh nicht gefunden. So dumm kann ich dann ja nicht sein. :mrgreen:

[RavenIV]

Zitat:

Zitat von Chrissi91

Das ist ja dasselbe wie mit AssignFile und CloseFile ....

ja genau.

Du kannst Dir folgendes merken.
Diese beiden Befehle gehören immer zusammen:
Open - Close, Assign - Close, Create - Free.

Wenn Du eine Türe aufmachst, dann machst Du sie ja auch wieder zu, oder?
Du startest den Motor des Autos, fährst in der Gegend rum. Wenn Du angekommen bist, machst Du den Motor ja auch wieder aus, oder?

[Chrissi91]

Zitat:

Zitat von RavenIV

Zitat:

Zitat von Chrissi91

Das ist ja dasselbe wie mit AssignFile und CloseFile ....

Wenn Du eine Türe aufmachst, dann machst Du sie ja auch wieder zu, oder? Öhm ... Bin in der U-Bahn geboren. :mrgreen:
Du startest den Motor des Autos, fährst in der Gegend rum. Wenn Du angekommen bist, machst Du den Motor ja auch wieder aus, oder? Echt? ^^

Wenn ich euch jetzt sage, dass es doch nicht funktionbiert? ^^

[DeddyH]

Mal als Admin versucht? Als Hauptbenutzer ging es hier bei mir.

[Chrissi91]

Ich habe nur einen Account. Und der ist normalerweise der Admin. :P

[DeddyH]

Und Du hast mein Beispiel genommen bzw. RootKey gesetzt?

[Chrissi91]

Nein, ich habe meins mit CloseKey genommen. Denn so hat das ja früher auch mal geklappt. Deins funzt einwandfrei. Aber meines soll auch funzen. :stupid:

[DeddyH]

Der Parameter im Konstruktor von TRegistry bezieht sich aber nicht auf den Wurzelknoten, sondern auf den Zugriffsmodus. Von daher verwundert mich das schon, dass das schonmal funktioniert haben soll.

[Luckie]

Ruft die Methode Free nicht automatsich CloseKey auf?

[RavenIV]

Zitat:

Zitat von Luckie

Ruft die Methode Free nicht automatsich CloseKey auf?

Wie kommst Du auf diese Idee?
TRegistry ist direkt von TObject abgeleitet.
Und das TRegistry.Free ist das TObject.Free.

[Luckie]

Na dann guck dir mal den Destruktor von TRegistry an:

Delphi-Quellcode:

destructor TRegistry.Destroy;
begin
  CloseKey;
  inherited;
end;

Das TRegistry von TObject abgeleitet ist, heißt ja noch lange nicht, dass im Destruktor nichts weiter passiert. Und da Free Destroy aufruft, kann man durch aus sagen, dass Free indirekt auch CloseKey aufruft. Meine Vermutung basierte darauf, da auch TFielStream.Free die Datei schliesst.