[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