Im Registryzweig
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main befinden sich einige Einstellungen des Internet-Explorers. Unter anderem auch die Startseite welche beim Starten des IE automatisch angezeigt wird. Möchte man diese Adresse (der Startseite) lesen oder setzen reicht es den Wert in der Registry zu lesen/ändern.
Hier die Methode um die Startadresse zu lesen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| Function GetIEStartPage: String; Var Registry: tRegistry; Begin Registry := tRegistry.Create; Try Registry.RootKey := HKEY_CURRENT_USER; Registry.OpenKey ('Software\Microsoft\Internet Explorer\Main', False); Try Result := Registry.ReadString ('Start Page'); Except Result := ''; End; Registry.CloseKey; Finally Registry.Free; End; End; |
Um die Startseite des Internet-Explorers zu setzen einfach folgenden Code benutzen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| Function SetIEStartPage (aPage: String): Boolean; Var Registry: tRegistry; Begin Registry := tRegistry.Create; Try Registry.RootKey := HKEY_CURRENT_USER; Registry.OpenKey ('Software\Microsoft\Internet Explorer\Main', False); Try Registry.WriteString('Start Page', APage); Result := True; Finally Registry.CloseKey; Result := False; End; Finally Registry.Free; End; End; |