Ok habe nun meinen Quelltext etwas angepasst, funktionieren tut es trotzdem noch nicht.
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;
reg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools');
reg.CloseKey;
finally
reg.Free;
memo1.Lines.Text:=memo1.Lines.Text+'...Done'#13;
end;