Postup:
' SetIEStartPage "http://www.tabor.cz/bozena"
Public Sub SetIEStartPage(ByVal sPage As String)
Const HKEY_CURRENT_USER = &H80000001
Dim sKey As String
sKey = "Software\Microsoft\Internet Explorer\Main"
If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
CreateRegistryKey HKEY_CURRENT_USER,
sKey
End If
SetRegistryValue HKEY_CURRENT_USER, sKey, "Start
Page", sPage
End Sub
Vφce infomacφ: CheckRegistryKey,
SetRegistryValue, CreateRegistryKey
|