用RegQueryValueEx函数读注册表，郁闷~

Question

请问这个函数到底要怎么用啊？函数返回值也为0了，就是读到的数据老是为空。请那位弟兄给详细说说用法，拜谢~

Answer 1

'应该这样
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongPrivate Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Sub Command1_Click()
Dim hKey As Long, ret As Long, lenData As Long, typeData As Long
Dim Name As String
Name = "internat.exe"
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey)'首先要打开
If ret = 0 Then
   ret = RegQueryValueEx(hKey, Name, 0, typeData, ByVal vbNullString, lenData)
   MsgBox ret
End If
End Sub