Public Function DeleteKey(RootKey As Long, SubKey As String) As Boolean
DeleteKey = False
lRet = RegOpenKeyEx(RootKey, SubKey, 0, KEY_WRITE, hKey)
If lRet = ERROR_SUCCESS Then
lRet = RegDeleteKey(hKey, SubKey)
lRet = RegCloseKey(hKey)
DeleteKey = True
End If
End Function
Public Function DeleteValue(RootKey As Long, SubKey As String, Entry As String) As Boolean
DeleteValue = False
lRet = RegOpenKeyEx(RootKey, SubKey, 0, KEY_ALL_ACCESS, hKey)
If lRet = ERROR_SUCCESS Then
lRet = RegDeleteValue(hKey, Entry)
lRet = RegCloseKey(hKey)
DeleteValue = True
End If
End Function