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 clase en el que está esta función.
Código:
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.