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;