EnableRegistryTools – Enable or disable the RegEdit utility

' 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'   EnableRegistryToolsPublic Sub EnableRegistryTools(Optional ByVal bEnable As Boolean = True)    Dim sKey As String    Const HKEY_CURRENT_USER = &H80000001    sKey = "SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem"        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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: