RegQueryValue函数如何查询注册表 vb

来源：百度知道 编辑：UC知道 时间：2024/05/16 23:30:57
Dim q As String * 255
MyexePath = App.Path & "\" & App.EXEName & ".exe"
regkey = "Software\Microsoft\Windows\CurrentVersion\Run"
If RegOpenKey(HKEY_LOCAL_MACHINE, regkey, hKey) = ERROR_SUCCESS Then
a = RegQueryValue(hKey,"MySoftware", q, Len(q))
MsgBox q
请问这段代码怎么没法读取子项的值啊？？
比如注册表项是Software\Microsoft\Windows\CurrentVersion\Run，子项为MySoftware，我想用regqueryvalue查询MySoftware的值。该怎么写代码呢？上面那段代码哪出错了？

再一次帖出这个注册表操作通用函数 如果楼主用到就用 用不到就算了~~~
我已经怕了RegQueryValue了

'==================================================
'注册表操作声明
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 RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hK