DeleteRegistryValue – Delete a value from the Registry

DeleteRegistryValue – Delete a value from the Registry

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias _    "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPrivate Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _    (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _    ByVal samDesired As Long, phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _    LongConst KEY_WRITE = &H20006  '((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or                            ' KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))' Delete a registry value'' Return True if successful, False if the value hasn't been foundFunction DeleteRegistryValue(ByVal hKey As Long, ByVal KeyName As String, _    ByVal ValueName As String) As Boolean    Dim handle As Long        ' Open the key, exit if not found    If RegOpenKeyEx(hKey, KeyName, 0, KEY_WRITE, handle) Then Exit Function        ' Delete the value (returns 0 if success)    DeleteRegistryValue = (RegDeleteValue(handle, ValueName) = 0)    ' Close the handle    RegCloseKey handleEnd Function

See also  10 Best Apps to Help You Read More Books in Less Time

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist