Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Aug 25, 2001

ShowExplorerFileMenu - Hide or show Windows Explorer File menu

' Hide/Show the Explorer's (Windows Explorer and IE) File menu
' NOTE: this routine requires the SetRegistryValue,
'  DeleteRegistryValue and CheckRegistryValue routines,
' that you can find in the CodeBank under the Windows section.
'
' Example:
'   ' hide the File menu (at the next execution of IE or Windows Explorer)
'   ShowExplorerFileMenu False
'   ' show it again
'   ShowExplorerFileMenu

Public Sub ShowExplorerFileMenu(Optional ByVal bShow As Boolean = True)
    Dim sKey As String
    Const HKEY_CURRENT_USER = &H80000001

    sKey = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
    
    If bShow Then
        ' delete the value whose setting hides the File menu
        DeleteRegistryValue HKEY_CURRENT_USER, sKey, "NoFileMenu"
    Else
        ' if the Key doesn not exist
        If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
            ' create the key
            CreateRegistryKey HKEY_CURRENT_USER, sKey
        End If
        ' create and set the value to hide the File menu
        SetRegistryValue HKEY_CURRENT_USER, sKey, "NoFileMenu", "1"
    End If
    
End Sub
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date