ICh habe da ein kleines Problem und ich finde den Fehler nicht (übermüdet ?!?!)
Delphi-Quellcode:
with TRegistry.Create do
begin
try
Rootkey := HKEY_CURRENT_USER; //Hauptschlüssel
if OpenKey(Key, True) then //Unterschlüssel öffnen
begin
if DeleteKey('DerKey') then
begin
Showmessage('Alles gelöscht');
CloseKey;
end else
begin
Showmessage('Fehler beim Löschen');
CloseKey;
end;
end;
finally
Free;
end;
end;
Der Schlüssel soll gelöscht werden, aber wird er nicht.
Achso, die Variable Key sieht so aus (Konstante)
Key: String = 'Software\DerKey;