Hallo,
bin gerade ein Programm zu schreiben, das einen RegistryKey löschen soll. Funktionieren tut es aber noch nicht. Hier der Quelltext:
Code:
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