Salu2. Mi problema es el siguiente:
Al leer el valor de un
clave de registro y meterla en una
variable string el
caracter final de la cadena es un
cuadrado, que supongo que será un caracter null o no imprimible. No existe en el
valor leyendolo desde el
registro de win. Este problema hace que mis
comparaciones sean
fallidas. He optado por solucionarlo eliminando el último caracter de las cadenas y funciona, pero no estoy al 100% seguro de que eso suceda con todos los windows.
¿Se les ocurre una solucion ?
Hay una variable registro que hace referencia al modulo calse en el que está esta función.
Public Function ConsultarValor(clave As Long, Nombre_clave As String, Nombre_valor As String)
Dim Handle_clave As Long
Dim Valor As Variant
Dim ret As Long
ret = RegOpenKeyEx(clave, Nombre_clave, 0, KEY_ALL_ACCESS, Handle_clave)
ret = QueryValueEx(Handle_clave, Nombre_valor, Valor)
' REtorna el valor del registro a la función
ConsultarValor = Valor
'Cierra la clave abierta del registro
RegCloseKey (Handle_clave)
End Function
Muchas gracias.
