Habe das mal eingefügt,sagt nun immer noch "Done", passieren tut weiterhin gar nichts.
Nochmal mein Quelltext:
Delphi-Quellcode:
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
if reg.Deletekey('DisableRegistryTools') then
memo1.Lines.Text:=memo1.Lines.Text+'...Done'+#13
else memo1.Lines.Text:=memo1.Lines.Text+'...Fehler!'+#13;
end
else memo1.Lines.Text:=memo1.Lines.Text+'...Fehler!'+#13;
finally
reg.CloseKey;
end;
Bei einem anderen Schlüssel funktioniert dieser Text ebenfalls nicht.