Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 09/11/2004 12:54 hs
oi pessoa, como faço pra eu ler este registro res = GetStringValue("HKEY_CURRENT_USERSoftwareXMLConfSystemSystem32", "VDXU56458")
assim não deu certo
Select Case res
Case "esta_instalado"
lbl_serial.Caption = "O Programa está instalado"
Case "nao_instalado"
lbl_serial.Caption = "O Programa não está instalado"
End Select eu fez um teste assim MsgBox res ' deu certo |
|
|
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 09/11/2004 14:13 hs
e no windows 98 também deu certo no win2000 e windows xp não. |
|
|
|
|
|
Postada em 09/11/2004 21:26 hs
A função que você está usando é uma função padrão C, portanto, as string são retornadas com um terminador nulo - Chr$(0) - assim, você deverá remover o último caracter da sua string de resposta que é um caracter nulo, embora você não veja. Antes do Select case, use o seguinte: res = Left(res,Len(res)-1) Um abraço, Sandro |
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 10/11/2004 08:08 hs
|
|
|
|
