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: