Versión de Windows

[horacio]

Trabajo FWH 2.7 y necesito saber si estoy en Windows Vista. Mi versión no posee IsVista(). Hay alguna manera. Gracias de antemano

[Wanderson]

Trabajo FWH 2.7 y necesito saber si estoy en Windows Vista. Mi versión no posee IsVista(). Hay alguna manera. Gracias de antemano

Utiliza IsWinVista()

Salu2

[horacio]

Wanderson
Te agradezco tu respuesta pero esa función no es soportada por la version que uso de FWH

[ARCC]

Buen día para todos...

Que tal Horacio, por favor prueba con esto.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

Function Main()

  MsgInfo( IsWinVista() )

Return Nil

//----------------------------------------------------------------------------//

Function IsWinVista()

  Local IsWinVista := .F.
  Local aOSInfo := GetVersionEx()

  //Sistema operativo            Mayor Versión (dwMajorVersion)
  //Windows NT 3.51              3
  //Windows 95, 98, Me y NT 4.0  4
  //Windows 2000, XP y 2003      5
  //Windows Vista/Longhorn       6
  //---------------------------------------------------
  //Sistema operativo            Menor Versión (dwMinorVersion)
  //Windows NT 3.51              51
  //Windows 95                   0
  //Windows 98                   10
  //Windows Me                   90
  //Windows NT 4.0               0
  //Windows 2000                 0
  //Windows XP                   1
  //Windows 2003                 2
  //Windows Vista/Longhorn       0

  //aOSInfo[ 1 ] = dwMajorVersion
  //aOSInfo[ 2 ] = dwMinorVersion
  //aOSInfo[ 3 ] = dwBuildNumber
  //aOSInfo[ 4 ] = dwPlatformId
  //aOSInfo[ 5 ] = szCSDVersion

  If aOSInfo[ 1 ] = 6 .And. aOSInfo[ 2 ] = 0

     IsWinVista := .T.

  EndIf

Return IsWinVista

//----------------------------------------------------------------------------//

#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>

HB_FUNC( GETVERSIONEX )
{
   OSVERSIONINFO OSInfo;

   OSInfo.dwOSVersionInfoSize = sizeof( OSVERSIONINFO );

   GetVersionEx( &OSInfo );

   hb_reta( 5 );
   hb_stornl( OSInfo.dwMajorVersion, -1, 1 );
   hb_stornl( OSInfo.dwMinorVersion, -1, 2 );
   hb_stornl( OSInfo.dwBuildNumber,  -1, 3 );
   hb_stornl( OSInfo.dwPlatformId,   -1, 4 );
   hb_storc(  OSInfo.szCSDVersion,   -1, 5 );
}
#pragma ENDDUMP

Nota: Debe funcionar pero como no tengo Windows Vista no lo puedo probar, allí tiene los valores para reconocer los otros sistemas operativos MS, solo tienes que hacer los If correspondientes y listo. Espero te sirva

[ARCC]

Buen día para todos...

Disculpen, Revisando encontré que FiveWin 7.12 (el que tengo) tiene una función que devuelve un arreglo con el mayor y menor valor de la versión de Windows GetWinVer(). O sea que podemos simplificar el código anterior eliminando la función de C GETVERSIONEX y quedaría de esta forma más corta.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

Function Main()

  MsgInfo( IsWinVista() )

Return Nil

//----------------------------------------------------------------------------//

Function IsWinVista()

  Local IsWinVista := .F.
  Local aOSInfo := GetWinVer()

  //Sistema operativo              Mayor Versión (dwMajorVersion)
  //Windows NT 3.51                3
  //Windows 95, 98, Me y NT 4.0    4
  //Windows 2000, XP y 2003 Server 5
  //Windows Vista/Longhorn         6
  //-------------------------------------------------------------
  //Sistema operativo              Menor Versión (dwMinorVersion)
  //Windows NT 3.51                51
  //Windows 95                     0
  //Windows 98                     10
  //Windows Me                     90
  //Windows NT 4.0                 0
  //Windows 2000                   0
  //Windows XP                     1
  //Windows 2003 Server            2
  //Windows Vista/Longhorn         0

  //aOSInfo[ 1 ] = dwMajorVersion
  //aOSInfo[ 2 ] = dwMinorVersion
  //aOSInfo[ 3 ] = dwBuildNumber
  //aOSInfo[ 4 ] = dwPlatformId
  //aOSInfo[ 5 ] = szCSDVersion

  If aOSInfo[ 1 ] = 6 .And. aOSInfo[ 2 ] = 0

     IsWinVista := .T.

  EndIf

Return IsWinVista

[horacio]

Arcc
Te agradezco la ayuda. Lo probaré. Muchas gracias

[horacio]

Arcc,
He probado esta función pero me devuelve aOSInfo[ 1 ] = 5 y aOSInfo[ 2 ] = 1. Lo mismo que Windows XP. Alguna Idea. Gracias.

[ARCC]

Buen día para todos...

Arcc,
He probado esta función pero me devuelve aOSInfo[ 1 ] = 5 y aOSInfo[ 2 ] = 1. Lo mismo que Windows XP. Alguna Idea. Gracias.

Que tal Horacio, bueno como te dije no tengo como probar en Vista pero en teoría deberia funcionar como te comente anteriormente, otra idea sería consultar el registro de Windows. Por ejemplo en WinXP puedes hacer lo siguente:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

#define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002

//*******#####
Function Main()
//*******#####

  Local oReg:=TReg32():New(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion")

  MsgInfo( oReg:Get("ProductName") )
  oReg:Close()

Return Nil

Pero como te comenté no tengo Vista para probar y no sé si mentiene la versión en la misma ruta del registro que XP, pero bueno es una idea donde puedes investigar, voy a tratar de conseguir un PC con Vista para probar

[ARCC]

Buen día para todos...

Horacio:

Un amigo me hizo el favor de probar los 2 códigos que te referí en Windows Vista Home Basic y los 2 funcionaron correctamente.