Registry DWORD wert erstellen

[ArmyMan]

Hallo

Ich würde es so machen:

Delphi-Quellcode:

uses Registry,Windows;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
begin
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE\Policies\Microsoft\Windows\System\Shutdown',true);
    reg.WriteInteger('HibernateAsDefault',1);
    reg.WriteInteger('ShowHibernateButton',1);
  finally
    reg.Free;
  end;
end;

Greetz

[edit]
"uses Windows" eingebaut
[/edit]