请教vb专家RegQueryValueEx的用法？

[guliande]

一个soeasy的目的，打算用api函数RegQueryValueEx查询注册表。
注册表位于HKEY_LOCAL_MACHINE->SOFTWARE->CutterMachine->No_A
名称是默认的。数值类型是字符串。
程序：
Dim hKey As Long
Dim ret As Long
Dim lenData As Long
Dim typeData As Long
ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\CutterMachine\No_A", hKey)
MsgBox ret '得到0 ，说明得到。


ret = RegQueryValueEx(HKEY_LOCAL_MACHINE, "Software\CutterMachine\No_A", 0, typeData, vbNullString, lenData) '得到的不仅是大小 lendata 还有类型typeData。
MsgBox lenData & "lendata" '得到0 ，说明没有得到 疑问就在这里。

If lenData > 0 Then '''''''''''''''''''''如果读到！！
Dim SSS As String
SSS = String(lenData, Chr(0))
RegQueryValueEx HKEY_LOCAL_MACHINE, "Software\CutterMachine\No_A", 0, typeData, ByVal SSS, lenData
SSS = Left(SSS, InStr(SSS, Chr(0)) - 1)
MsgBox SSS
End If '''''''''''''''''''''''''''''''''''如果读到！！
RegCloseKey (hKey)’’’’’’’’’’’’’’’’’’’关闭！！
不知道为什么lendata总是0？大家给指点一下~谢谢

[PctGL]

ret = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\CutterMachine\No_A", hKey)
RegQueryValueEx hkey, KeyName, ByVal 0&, REG_DWORD, retValue, i&

If i Then
RegQueryValueExInt hKey, KeyName, ByVal 0&, REG_DWORD, retValue, i&
end if

[guliande]

？？？？？高手们？？

[舉杯邀明月]

API声明与调用时的参数传递是否匹配？

[guliande]

[Quote=引用 3 楼 chen8013 的回复:]
API声明与调用时的参数传递是否匹配？
[/Quote]
api 是按照API浏览器里copy的。