Registry DWORD wert erstellen

[sanguinarus]

hallo!

Ich arbeite gerade an einem tool wo ich mehrer buttons habe und bei einem soll
er mir in der registrie einen dword wert erstellen.
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Win dows\System\Shutdown]
"HibernateAsDefault"=dword:00000001
"ShowHibernateButton"=dword:00000001
habe allerdings keine ahnung wie ich das machen soll einen normalen schlüssel
zu erstellen ist ja kein prob aber ich brauche dafür diesen dword wert kann mir da einer helfen!

[mkinzler]

DWORD=Integer

[sanguinarus]

Wie jetzt kann damit gerade nichts anfangen sorry aber habe echt kein plan! :gruebel:

das ist momentan mein stand nur als test

Delphi-Quellcode:

procedure TWinForm.Insatll_Click(sender: System.Object; e: System.EventArgs);
var key : Registrykey;
begin
     key := Registry.LocalMachine.OpenSubKey('Software', True);
     key.SetValue('test','1');
end;

[mkinzler]

Ein DWORD kannst du als Integer anlegen.

[sanguinarus]

Zitat:

Zitat von mkinzler

Ein DWORD kannst du als Integer anlegen.

wie mache ich das bzw binde ich das bei mir ein wie gesagt absulut keine ahnung.
Sitze hier mit nen dicken delphi buch aber da steht es halt auch nicht genau drin wie ich das machen muss
hoffe ja das meine grund idee richtig ist weis aber halt nicht wie ich denn schlüssel als
DWORD speicher eine richtige beschreibung wäre nett.

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

[sanguinarus]

erstmal danke aber bei

Delphi-Quellcode:

reg.RootKey := HKEY_LOCAL_MACHINE;

zeigt er mir Undefinierter Bezeichner an hatte ich
auch schon probiert!
habe es 1:1 kopiert

[ArmyMan]

Ach ja...

Delphi-Quellcode:

uses Windows

Greetz

[sanguinarus]

ja das scheint jetzt io zu sein aber an anderer stelle soll er mir ne messagebox aufrufen

Delphi-Quellcode:

MessageBox.[u]Show[/u]('Sie haben nichts Ausgewählt', 'Setup', MessageBoxButtons.Ok,
    Messageboxicon.Information, Messageboxdefaultbutton.button1)

nur jetzt sagt er mir nicht genug wirkliche parameter :wall: :wall: :wall:

[ArmyMan]

Mach es do so

Delphi-Quellcode:

ShowMessage('Sie haben nichts Ausgewählt');

Greetz