DWORD in Registry schreiben

[lukdelphias]

Hallo liebesForum,

ich habe voreinen Wert der Registry zu ändern. Nach stundenlanger Probiererei gebe ich nun auf.
Ich weiß nicht mehr weiter. Ich bekomme es einfach nicht hin das der Registryeintrag geändert wird. Debuggen lässt sich das Programm ohne Probleme, spuckt keine Fehlermeldungen aus usw.
Hier der Code dazu:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true) then
    try
      reg.WriteInteger('DisableTaskMgr',1);
    finally
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

end.

Hat jemand eine Idee warum es nicht schreibt?

MfG

[Uwe Raabe]

Vermutlich hast du keine Schreibrechte in dem Zweig (Policies). Prüf das doch einfach mal mit RegEdit nach.

[himitsu]

Zitat:

Vermutlich hast du keine Schreibrechte in dem Zweig.

Versuch mal mit deiner Funktion den geschriebenen Wert wieder auszulesen.

Bei fehlenden rechten kommt eingentlich eine Fehlermeldung,
aber eventuell landet dein Wert im VirtualStore, welchen es hier auch gibt, ebenso wie im Dateisystem.

https://docs.microsoft.com/en-us/win...virtualization
http://blog.m-ri.de/index.php/2007/0...chattenseiten/

[Dalai]

Auch wenn der Policies-Zweig im HKCU steht, haben Nutzer dort - aus gutem Grund - keine Schreibrechte. In diesem Zweig dürfen nur Administratoren und SYSTEM schreiben. Willst du das mit deinem Delphi-Programm machen, musst du (bei aktivierter UAC) höhere Rechte bzw. Adminrechte anfordern.

Grüße
Dalai

[lukdelphias]

Guten Morgen,

Danke für die Antworten.
Rechte dort zu schreiben habe ich. Über regedit und andere Möglichkeiten geprüft.
Das Problem hat sich aber jetzt sowieso geklärt löse das ganze jetzt anders.

Danke trotzdem für die Hilfe.
Gruß

[Dalai]

Zitat von lukdelphias:

Rechte dort zu schreiben habe ich. Über regedit und andere Möglichkeiten geprüft.

Regedit fordert standardmäßig höhere Rechte an (wegen requestedExecutionLevel=highestAvailable im Manifest). Dadurch kann man damit logischerweise in diesem Zweig schreiben. Dein Delphi-Programm wird aber wahrscheinlich nicht höhere Rechte haben oder anfordern - und hat daher die Rechte nicht. Wenn du dein Programm per Rechtsklick als Administrator ausführst, bekommt es die gleichen Rechte wie Regedit und wird dann dort schreiben können.

Mit welchen "anderen Möglichkeiten" hast du denn geprüft, ob Schreibrechte vorhanden sind?

Zitat:

Das Problem hat sich aber jetzt sowieso geklärt löse das ganze jetzt anders.

Nur interessehalber: Wie hast du es jetzt gelöst?

Grüße
Dalai

[Uwe Raabe]

Zitat von Dalai:

Mit welchen "anderen Möglichkeiten" hast du denn geprüft, ob Schreibrechte vorhanden sind?

Würde mich auch interessieren. Der reguläre Weg wäre, im RegEdit das Kontext-Menü des Policies-Eintrag aufzurufen und dort unter Berechtigungen nachzusehen.

[lukdelphias]

Die Anwendung hat die Rechte dort zu schreiben.
Gelöst habe ich es jetzt über eine andere Funktion für das schreiben der Registry hier aus dem Forum. Diese Methode funktionierte komischerweise ohne Probleme.

Grüße

[Dalai]

Zitat von lukdelphias:

Die Anwendung hat die Rechte dort zu schreiben.

Das heißt, dein Programm fordert (z.B. per Manifest) höhere Rechte an, der Benutzer muss also die UAC bestätigen?

Nur um das nochmal klarzumachen: Ohne Manifest mit Abschnitt trustInfo/requestedExecutionLevel (mit passendem Wert) fordert kein Programm höhere Rechte an, mal von Ausnahmen wie Dateinamen und/oder Versionsinformationen mit bestimmten Schlüsselwörtern abgesehen. Höhere Rechte sind aber zum Schreiben in diesem Zweig erforderlich.

Zitat:

Gelöst habe ich es jetzt über eine andere Funktion für das schreiben der Registry hier aus dem Forum.

Welche Funktion wäre das?

Grüße
Dalai

[lukdelphias]

https://www.delphipraxis.net/79110-r...erstellen.html

diese Funktion von ArmyMan funktioniert bei meinem Programm sehr gut