DWord Werte in die Registry schreiben

[HeikoAdams]

Mit folgendem Code kann man ohne Probleme einen DWord-Wert in die Registry von Windows schreieben

Delphi-Quellcode:

procedure WriteDWordToRegistry(Key, Data: string; Value : Integer)
var
  Pruefung: TRegistry;
begin
  Pruefung := TRegistry.Create(); //Registry initialisieren
  Pruefung.RootKey := HKEY_CURRENT_USER; //Root-Schlüssel öffnen
  Pruefung.OpenKey(Key, true); //Schlüssel öffnen
  Pruefung.WriteBinaryData(Data, Value, SizeOf(dword)); //Wert schreiben
  Pruefung.Free; //Speicher wieder freigeben
end;

[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;