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:

Zitat von lukdelphias (Beitrag 1469950)

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:

Zitat von Dalai (Beitrag 1469957)

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:

Zitat von lukdelphias (Beitrag 1469960)

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:thumb:

[Dalai]

Aber wo ist der Unterschied zu deinem Code? Außer HKCU <> HKLM und einem anderen Pfad sehe ich keinen. Daher ist mir weiterhin unklar, warum das Schreiben in dem einen Fall funktionieren soll, im anderen aber nicht.

Grüße
Dalai

[lukdelphias]

Verstehen tue ich es ehrlich gesagt auch nicht. Allerings funktioniert es was will man mehr. An die weitere Fehlersuche gehe ich dann nächste Woche vielleicht kann ich dann noch etwas dazu sagen.

Gruß

[Uwe Raabe]

Zitat:

Zitat von lukdelphias (Beitrag 1469967)

Allerings funktioniert es was will man mehr.

Verstehen, warum!

[lukdelphias]

Da hast du natürlich recht. Aber wie schon gesagt, an die tieferliegende Fehlersuche geht es nächste Woche.
Gruß

[himitsu]

Das Warum kann schnell sehr wichtig werden...

Es kann auch nur Zufall sein, dass es geht.
z.B. ein Bug im Windows, den Microsoft nächste Version behebt. :stupid:

[lukdelphias]

Stimmt ist auch möglich. Aber das ist auch halb so wild. Das Programm ist kein superwichtiges Programm. Es wird zwar hier in der Firma verwendet aber man kann auch darauf verzichtet bzw das Programm umgehen.

[generic]

@lukdelphias wenn die das mit den Rechten noch nicht ganz klar ist, auf Coding Bott gibt es etwas was in die Richtung geht:
https://www.youtube.com/watch?v=yCGsREvYot0