Versión de Windows
Versión de Windows
Trabajo FWH 2.7 y necesito saber si estoy en Windows Vista. Mi versión no posee IsVista(). Hay alguna manera. Gracias de antemano
Re: Versión de Windows
Utiliza IsWinVista()horacio wrote:Trabajo FWH 2.7 y necesito saber si estoy en Windows Vista. Mi versión no posee IsVista(). Hay alguna manera. Gracias de antemano
Salu2
Buen día para todos...
Que tal Horacio, por favor prueba con esto.
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
Que tal Horacio, por favor prueba con esto.
Code: Select all
#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
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.
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
#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
Buen día para todos...
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
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:horacio wrote:Arcc,
He probado esta función pero me devuelve aOSInfo[ 1 ] = 5 y aOSInfo[ 2 ] = 1. Lo mismo que Windows XP. Alguna Idea. Gracias.
Code: Select all
#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