DWord Werte in die Registry schreiben

[Matze]

Ich passe den Code mal etwas an.

Delphi-Quellcode:

procedure WriteDWordToRegistry(Key, Data: string; Value : Integer);
var
  Pruefung: TRegistry;
begin
  Pruefung := TRegistry.Create();
  try
    Pruefung.RootKey := HKEY_CURRENT_USER;
    if Pruefung.OpenKey(Key, true) then
    begin
      Pruefung.WriteBinaryData(Data, Value, SizeOf(dword));
      Pruefung.CloseKey;
    end;
  finally
    FreeAndNil(Pruefung);
  end;
end;