Funktioniert leider immer noch nicht. Zur allgemeinen Information ich habe
Uses ...,Registry;
drin und alles mit Administrationsrechten ausgeführt.
Edit: So habe das ganze nun nochmal mit einer If-Struktur überarbeitet:
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
reg.Deletekey('DisableRegistryTools');
memo1.Lines.Text:=memo1.Lines.Text+'...Done'+#13;
end
finally
reg.CloseKey;
end;
Die If-Struktur ist mir noch nicht so ganz klar müsste ja noch irgendwas wie =true oder so hin aber komme damit noch nicht wirklich zurecht.