请教如何应用RegDeleteKey，为什么我的程序不能删去指定的SubKey ？ 代码如下

Question

Private Sub CommandX_Click()
    Dim hKey As Long
    RegCreateKey HKEY_CURRENT_USER, "software\新建子项\test\test01\test001", hKey
    RegCloseKey hKey    RegCreateKey HKEY_CURRENT_USER, "software\新建子项\test\test02", hKey
    RegCloseKey hKey    RegCreateKey HKEY_CURRENT_USER, "software\新建子项\test\testxx", hKey
    RegCloseKey hKey
       
End SubPrivate Sub CommandY_Click()
    
    Dim ret As Long
    Dim hSubKey As Long    ret = RegOpenKeyEx(ByVal HKEY_CURRENT_USER, ByVal "software\新建子项", ByVal 0, ByVal KEY_ALL_ACCESS, hSubKey)
    
If ret <> 0 Then
        Exit Sub
    End If
    
    ret = RegDeleteKey(ByVal hSubKey, ByVal "新建子项")
    '这的返回值总不是0 ，为什么 
    '希望高手指点    RegCloseKey hSubKey
   
End Sub

Answer 1

如果你想删除"新建子项"，只要打开到software就行了。