Registry-Key löschen

[bigg]

Was macht ihr denn da eigentlich?

Code:

if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\', true) then

Heißt so viel wie: Erstelle einen Schlüssel, auch wenn dieser nicht existiert !!!
Und wenn wir ihn dann geöffnet haben, löschen wir ihn wieder.

Das sollte hier funktionieren:
Was ist "url1" ?
Ein Schlüssel, eine Zahl, String, Boolean, Hexwert?
Bei mir gibts den wert nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
const Key = 'Software\Microsoft\Internet Explorer\TypedURLs\url1';
begin

Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER; {für alle Benutzer}

if Reg.KeyExists(Key) then {ist der Schlüssel vorhanden?}
Reg.DeleteKey(Key) {dann löschen} else
ShowMessage('Konnte den Schlüssel nicht löschen.'); {ansonsten Fehlermeldung ausgeben}

finally Reg.Free;
end;
end;