Binaryworld - EnableRegistryTools - Enable or disable the RegEdit utility ... [ VB -> Windows ]

' Enable/Disable the Registry editor (RegEdit.exe)
' NOTE: this routine requires the SetRegistryValue,
' DeleteRegistryValue and CheckRegistryValue routines,
' that you can find in the CodeBank under the Windows section.
'
' Example:
' ' disable Regedit
' EnableRegistryTools False
' ' enable it again
' EnableRegistryTools

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

  sKey = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

  If bEnable Then
    ' delete the value whose setting disables the registry
    DeleteRegistryValue HKEY_CURRENT_USER, sKey, "DisableRegistryTools"
  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 disable the Registry
    SetRegistryValue HKEY_CURRENT_USER, sKey, "DisableRegistryTools", 1
  End If

End Sub