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:
Muchas gracias.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
