Hatte ich auch schon gedacht. Und ich meine es auch schon so probiert zu haben.
Delphi-Quellcode:
bRes := Reg.OpenKey(CompanyKey, False);
if bRes then
begin
sl := TStringList.Create;
reg.GetKeyNames(sl);
reg.CloseKey; // <- CloseKey hier!!!
//#TODO1: Hier stimmt noch was nicht!!!
if sl.Count = 0 then
begin
bRes := reg.DeleteKey('MichaelPuff');
// Test
ShowMessage(SysErrorMessage(GetLasterror));
end;
end;
Geht auch nicht. 'Zugriff verweigert'.