获取注册表中值的问题,在线等!!!!!

[zzyhuian06142]

各位大哥帮帮忙
我用下面的代码去得到HKEY_LOCAL_MACHINE下SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\FwClient.exe中Path的值,但是为什么得到的确实空的啊
Dim Read_Key As Long
Dim Result As Long
Dim Query_Key As Long
Dim path As Long
Dim Date As String
Dim Binarys As Long
Read_Key = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\FwClient.exe", 0, KEY_ALL_ACCESS, Result)
Query_Key = RegQueryValue(Result, "Path", Date , Binarys )
RegCloseKey Result

在模块中API是这样的
'Global Const HKEY_LOCAL_MACHINE = &H80000002

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public 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 Long
' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long


Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
帮帮忙啊，都弄了一天了

[zzyhuian06142]

得到的Date为什么是“”啊

[hongqi162]

http://www.sqreg.com/file/vb/reg_01.htm

[zzyhuian06142]

帮帮忙吧,如果分不够的话,我再加就是了

[vbman2003]

在论坛上搜索一下吧，太多了，代码都贴烂了......
-_-

[zzyhuian06142]

能解决的话我就不来这边浪费30分了,高手出来帮帮我啊
我想得到HKEY_LOCAL_MACHINE下SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\FwClient.exe中Path的值
怎么写啊,分不够的话我再加,我是刚接触VB 的,谢谢

[yin138]

不会吧，兄弟，你的Date变量也可以定义 吗？
还有应该使用space(length)分配空间。

[vbman2003]

http://community.csdn.net/Expert/topic/5547/5547987.xml?temp=.947796

[zzyhuian06142]

解决了,谢谢yin138(大海) 的提示,谢谢了,呵呵