Delphi - Internet Explorer nyitóoldalának lekérdezése, beállítása

forráskód letöltése
Készítünk egy olyan komponenst a mellékelt példában, mely képes arra, hogy lekérdezze illetve beállítsa, hogy melyik legyen az a web oldal, mely az Internet Explorer indulásakor automatikusan betöltődik.
A mellékelt példaprogram megnyitása előtt az IEStartPage.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
Az IEStartPage komponens használata igen egyszerű, mindössze az URL property-be kell beírni azt a webcímet, amit szeretnénk az Internet Explorer indulásakor látni. Az aktuálisan beállított cím ugyanebből a property-ből olvasható ki.
A feladat megoldása sem túl bonyolult, mindössze egyetlen értéket kell átírni a Windows regisztrációs adatbázisban.
Ez az érték a Software\Microsoft\Internet Explorer\Main címen található a Start Page név alatt.
A komponens konstruktorában adunk értéket az URL property-nek a GetIEStartPage függvény által.
constructor TIEStartPage.Create(AOwner: TComponent);
begin
  inherited;
  FURL:=GetIEStartPage;
end;
A property-nek történő értékadáskor fut a SetURL eljárás. Itt az értéktárolás mellett módosítjuk rögtön a Windows regisztrációs adatbázis megfelelő értékét is a SetIEStartPage eljárással.
procedure TIEStartPage.SetURL(const Value: string);
begin
  FURL := Value;
  SetIEStartPage(FURL);
end;
A GetIEStartPage és a SetIEStartPage eljárások egyszerűen csak olvassák illetve írják a Windows regisztrációs adatbázis megfelelő kulcsát.