Registryproblem

[Matze]

Dann mach doch das, was verlangt ist (kein Konstantenobjekt übergeben):

Delphi-Quellcode:

var
  WertX: Integer;

WertX := 1;

WriteBinaryData('Value-Name-Halt', WertX, SizeOf(dword));

Edit: Du fragst so oft, wie man eine Funktion aufrufst, das solltest du doch langsam können (und sag jetzt nicht, dass du es so gemacht hättest, sondern schreibe nächstes Mal dazu, wie du denkst, würde man das aufrufen. Ich habe immer noch den Eindruck, dir fehlen sämtliche Grundlagen).

Delphi-Quellcode:

if WriteDWORD('Key', 'Name', WertX) then
  // erfolgreich eingetragen

WertX = ReadDWORD('Key', 'Name');

Edit2: In der Funktion, die du nutzt, fehlt übrigens ein CloseKey.