Au weia. Ich habe eigentlich gemeint, dass du auf alle Formulare und unnötige Units verzichten sollst. Das heißt logischerweise:
keine Forms-
Unit. Und damit gibt es dann auch kein
Delphi-Quellcode:
Application.Initialize;
Application.Run;
Und dann scheinst du nicht zu lesen, was dir andere sagen. Du hast Christians Code unvollständig übernommen, denn zum einen fehlt der Haupt-
try-
finally-Block, und zum anderen ist "OpenKey" eine
Funktion, deren Bool-Rückgabewert zur Prüfung (konnte der Schlüssel geöffnet werden oder nicht?) genutzt werden kann.
Du solltest die Prozedur "FormCreate" aus deinem Programm nehmen und den Registry-Code stattdessen gleich
und richtig zwischen
schreiben. Dann sollte es auch funktionieren.
Übrigens: wenn du den Schlüssel "TypedURLs" löschen willst, dann brauchst du nicht vorher "Software\Microsoft\Internet Explorer" öffnen. Einfach
Reg.DeleteKey('Software\Microsoft\Internet Explorer\TypedURLs');
tut´s
IMHO auch.