各位快帮我看看,这个API函数的使用是不是参数错了?RegQueryValueEx(hKey, keyvalue, 0&, REG_SZ, ByVal vbNullString, SizeOfData) , RegOpenKeyEx可得0!

Question

Const REG_SZ = 1
 
 Const READ_CONTROL = &H20000 Const STANDARD_RIGHTS_READ = (READ_CONTROL) Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Const KEY_QUERY_VALUE = &H1 Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20Const SYNCHRONIZE = &H100000 Const STANDARD_RIGHTS_ALL = &H1F0000 Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
 Private 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
 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 Long
 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
 Const HKEY_LOCAL_MACHINE = &H80000002 'primary key
Sub Main()    Debug.Print SoftInstall("Quest SQL Optimizer for Oracle")
End Sub    'return 1 signed the software is installed.
Function SoftInstall(keyvalue As String) As Integer
 Dim hKey As Long 'Primary key handle

Answer 1

这个简单啊,网上搜一下就得到答案了.