[DarkProtector]

Hallo,

bin gerade ein Programm zu schreiben, das einen RegistryKey löschen soll. Funktionieren tut es aber noch nicht. Hier der Quelltext:

procedure TForm1.UnlockClick(Sender: TObject);

var reg:TRegistry;

begin
reg:=TRegistry.Create;
memo1.Lines.Text:=memo1.Lines.Text+'->Entferne Registry Schreibschutz';
try
   reg.RootKey:=HKEY_CURRENT_USER;
   if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', false)
   then
    begin
    reg.Deletekey('DisableRegistryTools');
    memo1.Lines.Text:=memo1.Lines.Text+'...Done'+#13;
    end
   else memo1.Lines.Text:=memo1.Lines.Text+'...Fehler!'+#13;
finally
   reg.CloseKey;
end;

Funktionieren tut das aber nicht. Er gibt zwar ein "Done" aus aber der DeleteKey Befehl scheint Fehlerbehaftet zu sein.

Hoffe auf eure Hilfe

[Mint]

Erstelle doch ein batch-skript und rufe es per Delphi auf! Oder ist bei dir der Weg das Ziel?
mfg, Mint.

[DarkProtector]

Habe es schon so zum laufen bekommen.

[gosha16]

Wo ist denn der Fehler? Vllt haben andere das selbe Problem?

[DarkProtector]

DeleteKey löscht einen Schlüssel, DeleteValue war das richtige.