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

[Trike]

Hallo ihr da draußen *g*

Ich habe ein ähnliches Problem, wie das oben im Thread beschrieben. Habe mich mit meinen simplen Grundkenntnissen durch die Hilfe geackert und versucht, eine neue Zeichenfolge zu erstellen. Das ging noch, auch einen Binärwert habe ich hingebracht. Aber einen DWORD-Eintrag, den ich leider im Gegensatz zu den anderen beiden, brauche, will mir Delphi nicht gewähren. Probiert habe ich schon "createRegKey", das war aber völlig falsch *g* Von einem Freund habe ich mir sogar eine Funktion schreiben lassen, um den Hex-Wert in Dezimal umzuwandeln, aber wie rufe ich DWORD auf bzw. ändere Einträge?

MfG

[CalganX]

DWORD ist eigentlich das gleiche, wie ein Integer. Daher sollte dir WriteInteger helfen.

Chris

[Pseudemys Nelsoni]

Zitat:

Und wieder kein try-finally. :(

stimmt! hab ich nun gemacht, danke :)

[Trike]

Bin leider noch nicht zum Ausprobieren gekommen, aber was bedeutet das "try" und "finally"?

[Chewie]

try heißt "versuchen", finally "ausführen, egal ob der Versuch erfolgreich war oder nicht". Das Praktische daran ist, dass die Anweisungen im finally-Block auch dann ausgeführt werden, wénn es im Try-Block zu einer Excepption kommt, die eigentlich die Ausführung des weiteren Codes verhindern würde. So kann man Speicherlecks verhindern.
Schau dir dazu auch mal die OH an.