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
Sep 20, 2001

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