La Web del Programador: Comunidad de Programadores
 
    Pregunta:  710 - SABER EL NUMERO DE SERIE DEL WINDOWS 95
Autor:  Manuel
AMIGOS NECESITO SABER COMO VISUAL FOXPRO 5.0 PUEDE ALMACENAR EL NUMERO DE SERIE DEL WINDOWS QUE SE ESTE UTILIZANDO

MUCHAS GRACIAS


  Respuesta:  Marco A. Romero
Para conocer el número de versión de Windows o cualquier valor interno, como el Id del producto, Tipo o número de sub-versión, debes acceder al registro de configuración de Windows. El dato que te interesa puedes encontrarlo en el siguiente Path del registro:
\HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION (para Win95)
\HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION (para Win NT)
Para acceder a este registro puedes utilizar el fichero "REGISTRY.PRG" que define una clase que proporciona acceso al registro de windows. Este fichero viene con la versión 6 de Visual FoxPro y no estoy seguro que venga con la V. 5, sin embargo aunque no lo he probado creo que funcionaría igual.

Una vez que incluyas la definición de la clase en tu proyecto simplemente creas una instancia de dicha clase y llamas al método "GETREGKEY" que te devolverá el valor de la clave que le indiques (en el PRG viene comentado la forma en que debes llamar a este método).

Espero que esto te ayude, si no encuentras la definición de la clase, envíame un mail y te enviaré una copia. Un Saludo y hasta pronto.