Browse DevX
Sign up for e-mail newsletters from DevX

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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"
        ' 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.



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