| http://www.w3.org/ns/prov#value | - Then : : If lValueType = REG_SZ Then : : strBuffer = String(lDataBufferSize, ) : : lResult = RegQueryValueEx(hCurKey, strValue, 0&, 0&, ByVal strBuffer, lDataBufferSize) : : intZeroPos = InStr(strBuffer, Chr$(0)) : : If intZeroPos > 0 Then : : GetRegString = Left$(strBuffer, intZeroPos - 1) : : Else : : GetRegString = strBuffer : : End If : : End If : : Else : : 'there is a problem : : End If :
|