Změna nastavení kontextové nabídky IE

Procedura:
' SetIEContextMenuEnabled False

Public Sub SetIEContextMenuEnabled(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, "NoBrowserContextMenu", _
        Abs(Not bEnabled)
    
End Sub

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

Zpět