VB 访问注册表

    '本人在注册表写项,键值我查看了都写了进去
    Dim flag As String
    flag = "died"
    RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", hKey
    RegSetValueEx hKey, "flagRun", 0, REG_SZ, ByVal flag, LenB(flag)

'写入成功后取出,但每次取出的都是空串
temp = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run\", 0, KEY_QUERY_VALUE, hKey)
    temp = RegQueryValueEx(hKey, "flagRun", 0, REG_SZ, ByVal flag, Len(flag))
print flag

temp的值是0,说明取值也成功了,但flag总是空串

---

代碼沒有錯啊,

---

VB code:

Option Explicit

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, 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 RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved