请教vb专家RegQueryValueEx的用法？

Question

一个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？大家给指点一下~谢谢

Answer 1

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

Answer 2

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

Answer 3

api 是按照API浏览器里copy的。