Dim r As Long, hkey As Long, hsubkey As Long
r = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\yuking", hkey)
If r = 0 Then
MsgBox "success"
End If
为什么得不到答案
...全文
215打赏收藏
注册表问题
Dim r As Long, hkey As Long, hsubkey As Long r = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\yuking", hkey) If r = 0 Then MsgBox "success" End If 为什么得不到答案