Procedura:
Public Function
GetIEOptionsEnabled() As Boolean
Const HKEY_CURRENT_USER = &H80000001
GetIEOptionsEnabled = Not CBool(GetRegistryValue(HKEY_CURRENT_USER,
_
"Software\Policies\Microsoft\Internet
Explorer\Restrictions", _
"NoBrowserOptions"))
End Function
Pro vφce informacφ: GetRegistryValue
|