r = RegCreateKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\ssql", keyhand)
r = RegSetValueEx(keyhand, "ssql", 0, REG_SZ, ByVal str, Len(str))
r = RegCloseKey(keyhand)
我的字符串是:
str="lakh "
用以上方法写入注册表,字符串的len宽度是6写入后再读出来宽度len只有4:也就是只有"lakh"
r = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\ssql", keyhand)
r = RegQueryValueEx(keyhand, "ssql", 0&, 0&, ByVal 0&, lDataBufSize)
strBuf = String(lDataBufSize, "0")
lResult = RegQueryValueEx(keyhand, "ssql", 0&, 0&, ByVal strBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
GetString = Left(strBuf, intZeroPos - 1)
Else
GetString = strBuf
End If
End If
高手们帮忙看一下啊..
r = RegSetValueEx(keyhand, "ssql", 0, REG_SZ, ByVal str, Len(str))
r = RegCloseKey(keyhand)
我的字符串是:
str="lakh "
用以上方法写入注册表,字符串的len宽度是6写入后再读出来宽度len只有4:也就是只有"lakh"
r = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\ssql", keyhand)
r = RegQueryValueEx(keyhand, "ssql", 0&, 0&, ByVal 0&, lDataBufSize)
strBuf = String(lDataBufSize, "0")
lResult = RegQueryValueEx(keyhand, "ssql", 0&, 0&, ByVal strBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
GetString = Left(strBuf, intZeroPos - 1)
Else
GetString = strBuf
End If
End If
高手们帮忙看一下啊..
GetString<>str
字符串的内容是一样的,我就觉得奇怪,
才用len去对长度,,原来就是长度不同..