请教api函数RegOpenKey的用法。
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Sub Command2_Click()
Dim ret As Long, hKey As Long
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft", hKey)
If ret = 0 Then
MsgBox "成功"
' hKey 的值即等於 "SOFTWARE\Microsoft" Subkey 的 Key Handle
Else
MsgBox "失败"
End If
End Sub
总是不成功,请问何故?何解?