
A mellékelt példaprogram megnyitása előtt a IEHistory.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
Az új komponenst a TComponent osztályból származtatjuk. Ebben két property-t hozunk létre. A TypedURLs property TStringList típusú, ebbe olvassuk be a címeket. A másik property a Count, amely azt mondja meg, hogy hány cím található a listában. Ez tulajdonképpen a TypedURLs Count property-jének értékét adja vissza, a property értéke közvetlenül nem módosítható.
A címek listája a Registry-ben található az alábbi kulcs alatt:
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs
Ez alatt a kulcs alatt urlX nevű sztring típusú értékek vannak. A névben az X egy sorszámot jelöl.
A komponens Refresh metódusában megnyitjuk ezt a Registry kulcsot, és egy átmeneti TStringList típusú objektumba beolvassuk a kulcs alatt található értékek neveit a GetValueNames eljárással. Ezután egy ciklusban végigmegyünk ezen a listán, és egyenként kiolvassuk az adott névhez tartozó címet, amit beírunk az FTypedURLs objektumba.
A listát vissza is írhatjuk a Registry adatbázisba az Update eljárással. Ebben az eljárásban töröljük a fenti Registry kulcsot, majd újra létrehozzuk. Ezután egy ciklusban végigmegyünk a TypedURLs property-ben tárolt listán, és egyenként kiírjuk az elemeit a Registry-be. Mindegyik értéknek egyedi nevet kell választanunk, ami „urlX” lesz, ahol X a cím sorszáma.
A törléshez a Clear eljárást használhatjuk. Ez egy elég egyszerű eljárás, mert csupán annyit tesz, hogy törli a TypedURLs property-ben tárolt listát, majd meghívja az Update eljárást.