TRegistry (wert schreiben)

[Pseudemys Nelsoni]

Hi,

hab schon die suche benutzt und alles gelesen, bei den anderen gehts wohl, bei mir irgendwie nicht...ich fang gerade erst mit dem registry an weil ich meine inis weghaben will, mein Test sah so aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('GCC\TSChat', false);
  Reg.WriteString('bla', 'test');
  Reg.CloseKey;
  Reg.Free;
end;

ich erhalte beim ausführen immer den fehler...

http://www.angelfire.com/bug/delphi/error.JPG

"Registry" ist mit in den uses

mfg

[sakura]

Kann es sein, dass Dir die rechte fehlen, in diesem Bereich der Registry Daten zu ändern/zu schreiben. Versuche mal unter

Code:

  Reg.RootKey := [color=#ff0019]HKEY_CURRENT_USER[/color];
  Reg.OpenKey('[color=#f60000]Software\[/color]GCC\TSChat', false);

...:cat:...

[Pseudemys Nelsoni]

wenn ich es so abändere wie von dir beschrieben, bekomme ich folgenden fehler:

http://www.angelfire.com/bug/delphi/error2.JPG


Admin Rechte hab ich 100%


hab ich sonst noch was falsch? Danke für die hilfe

[MathiasSimmack]

Existiert der Schlüssel denn überhaupt schon? Wenn nicht, dann wäre

Code:

Reg.OpenKey('Software\GCC\TSChat',[color=red]true[/color]);

die Lösung. Und ein schöner try-finally-Block ist auch nicht zu unterschätzen!

[Dagon]

versuchs mal so:

Delphi-Quellcode:

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('GCC\TSChat', true);
  Reg.WriteString('bla', 'test');
  Reg.CloseKey;
  reg.free;

[MathiasSimmack]

Und wieder kein try-finally. :(

[sakura]

Quatsch :mrgreen: der Fehler liegt ganz wo anders...

Code:

// aus
Reg.Create
// wird
[color=#ff0000]Reg := TRegistry.Create;[/color]

...:cat:...

P.S. the master hat die Lösung auch in seiner versteckt ;-)

[Pseudemys Nelsoni]

hab das so mal getestet:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('SOFTWARE\GCC\TSChat', true);
  Reg.WriteString('jo', 'test');
  Reg.CloseKey;
  Reg.Free;
end;

immernoch ein except fehler

also der ordner in HKEY_CURRENT_USER ist "Software\GCC\TSChat" rechts im fenster wenn der ordner "TSChat" markiert ist, ist nur (Standard) da. Also ich will einen neuen Key schreiben, aber geht irgendwie nicht :?:

[Pseudemys Nelsoni]

Jup jetzt gehts, danke @Sakura,Mthias,the_master.

es war das mit dem Create.

Kann ich irgendwie prüfen ob ein wert bereits exisitert oder nicht existiert, und wenn nicht dann einen neuen erstellen?

[Pseudemys Nelsoni]

hab schon danke