Změna nastavení IE

Postup:
Do deklarační části formuláře zapište:

Private Declare Function RegCreateKey Lib _
   "advapi32.dll" Alias "RegCreateKeyA" _
   (ByVal HKey As Long, ByVal lpSubKey As _
   String, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib _
   "advapi32.dll" (ByVal HKey As Long) As Long

Private Declare Function RegSetValueEx Lib _
   "advapi32.dll" Alias "RegSetValueExA" _
   (ByVal HKey As Long, ByVal _
   lpValueName As String, ByVal _
   Reserved As Long, ByVal dwType _
   As Long, lpData As Any, ByVal _
   cbData As Long) As Long

Private Const REG_SZ = 1
Private Const HKEY_CURRENT_USER = &H80000001

Private Sub SaveString(HKey As Long, Path As String, _
      Name As String, Data As String)

   Dim KeyHandle As Long
   Dim r As Long

   r = RegCreateKey(HKey, Path, KeyHandle)
   r = RegSetValueEx(KeyHandle, Name, 0, REG_SZ, ByVal Data, Len(Data))
   r = RegCloseKey(KeyHandle)

End Sub

Private Sub SetStartPage(URL As String)

   Call SaveString(HKEY_CURRENT_USER, _
      "Software\Microsoft\Internet Explorer\Main", _
      "Start Page", URL)

End Sub

Private Sub SetWindowTitle(Title As String)

   Call SaveString(HKEY_CURRENT_USER, _
      "Software\Microsoft\Internet Explorer\Main", _
      "Window Title", Title)

End Sub

Příklady volání:
SetStartPage ("http://www.tabor.cz/bozena")
SetWindowTitle ("The Bozena's Browser")

Zpět