Autor Beitrag
Tino
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Veteran
Beiträge: 9839
Erhaltene Danke: 45

Windows 8.1
Delphi XE4
BeitragVerfasst: Di 03.09.02 10:24 
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:
ausblenden 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:
ausblenden 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;