怎样删除注册表的键

Question

请看看这几个例子：
http://www.csdn.net/dev/Visual%20Basic/source%20code/System%20Related/editregistry.zip
http://www.csdn.net/dev/Visual%20Basic/source%20code/System%20Related/easyreg.zip
http://www.csdn.net/dev/Visual%20Basic/source%20code/System%20Related/registryb.zip
http://www.csdn.net/dev/Visual%20Basic/source%20code/System%20Related/registry5.zip

Answer 1

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