Procedura:
Public Sub SetIETitle(ByVal
sTitle 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, "Window
Title", sTitle
End Sub
Pro vφce informacφ: CheckRegistryKey,
SetRegistryValue, CreateRegistryKey.
|