problem Reading Registry on XP

[NYGirl75]

I have ran across an issue it appears is XP related. On my NT machine I can read the registry fine, however the same function returns a blank on an XP machine. The specifc part that is not returning a value on XP but is on NT is the RegQueryValueEXString function:
sValue = String(cch, 0)

lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, _ sValue, cch)

If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch - 1)
Else vValue = Empty
End If
The vValue parameter is blank now is XP but the same code reads the registry fine and fills this variable in NT. Anyone have any suggestions? Thanks!!

 

[idotech]

I had also detected this problem and found a work around.
Use GetUserNameA instead of RegQueryValueExString.

Private Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, ByRef nSize As Long) As Long

and do something like this:
InfoSize = 128 'set max length to retrieve
Info = String$(InfoSize + 1, 0) 'allocate buffer

ret = GetUserNameA(Info, InfoSize) 'get value

If ret <> 0 Then 'success?
USERNAME = Left$(Info, InfoSize - 1)
'return value
End If