Procedura:
'
SetIEsaveAsEnabled False
Public Sub SetIEsaveAsEnabled(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, "NoBrowserSaveAs",
_
Abs(Not bEnabled)
End Sub
Pro více informací: CheckRegistryKey,
SetRegistryValue, CreateRegistryKey.
|