注册表问题。各位看看！

Question

RegSetValue（）函数向注册里面写入键值没有问题，可是查看注册表后发现是创建了新项并且在默认项中写入的，能否创建新的字符串项,比如KvMonXP。在线等！！！
RegSetValue(phkResult, "OA", 1, "c:\windows\system\", 1)

Answer 1

'建立新项,如指定的项已经存在，则函数会打开现有的项
Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)
    Dim hNewKey As Long
    Dim lRetVal As Long
    
    lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)
    RegCloseKey (hNewKey)
End Function

Answer 2

To : zcsor() RegCreateKey()函数也是同样的问题，难道用RegCreateKeyEx()就可以吗？