简单的查询语句,错在哪
我想获取注册表hkey_current_user\Software 下的键wenjian的值,然后把所获得值显示在文本框text1.text里面.
我用下面的语句不行 ,错在哪?
Option Explicit
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (B
yVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueE
xA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, l
pType As Long, lpData As Any, lpcbData As Long) As Long
Const hkey_current_user = &H80000001
Const REG_SZ = 1&
Const regkey = "Software"
Const ee = "wenjian"
dim retvalue,deyid,rr
Private Sub Command11_Click()
retvalue = RegCreateKey(hkey_current_user, regkey, keyid)
retvalue = RegQueryValueEx(keyid, ee, 0, REG_SZ , ByVal rr, Len(ee))
Text1.Text = rr
End Sub