Nastavení viditelnosti Oblíbených položek

Procedura:
Public Sub SetIEFavoritesEnabled(ByVal bEnabled As Boolean) 

   Const HKEY_CURRENT_USER = &H80000001 
   Dim sKey As String 

   sKey = "Software\Policies\Microsoft\_
      Internet Explorer\Restrictions" 

   'Pokud klíč neexistuje 
   If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then 
      ' tak ho vytvoříme 
      CreateRegistryKey HKEY_CURRENT_USER, sKey 
   End If 

   ' Nastavení hodnoty
   SetRegistryValue HKEY_CURRENT_USER, sKey, _
      "NoFavorites", Abs(Not bEnabled) 

End Sub

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

Zpět