Změna nastavení nabídky Nastavení IE

Procedura:
' SetIEOptionsEnabled False

Public Sub SetIEOptionsEnabled(ByVal bEnabled As Boolean)

    Const HKEY_CURRENT_USER = &H80000001
    Dim sKey As String
    
    sKey = "Software\Policies\Microsoft\Internet Explorer\Restrictions"
    
    If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
        CreateRegistryKey HKEY_CURRENT_USER, sKey
    End If
    
    SetRegistryValue HKEY_CURRENT_USER, sKey, "NoBrowserOptions", _
        Abs(Not bEnabled)
    
End Sub

Pro více informací: CheckRegistryKey, SetRegistryValue, CreateRegistryKey.

Zpět

Autor: The Bozena