The following test program demonstrate using of
C-code for detect the current Windows version.
Code: Select all
/*
* MINIGUI - Harbour Win32 GUI library Demo
*
* Copyright 2002-07 Roberto Lopez <harbourminigui@gmail.com>
*
* Copyright 2007 Grigory Filatov <gfilatov@freemail.ru>
*/
#include "minigui.ch"
#define NTRIM( n ) LTrim( Str( n ) )
*--------------------------------------------------------*
Procedure Main
*--------------------------------------------------------*
Local cValue := GetInfoString()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 260 HEIGHT 340 ;
TITLE 'Get WinVersion Demo' ;
MAIN ;
NOMAXIMIZE NOSIZE ;
FONT 'MS Sans Serif' SIZE 8
@ 0,0 EDITBOX Edit_1 ;
WIDTH Form_1.Width - 2 * GetBorderWidth() + 2 ;
HEIGHT Form_1.Height - GetTitleHeight() - 2 * GetBorderHeight() + 2 ;
VALUE cValue ;
MAXLENGTH 1024 ;
NOHSCROLL
END WINDOW
Form_1.Center()
Form_1.Activate()
Return
*--------------------------------------------------------*
Function GetInfoString()
*--------------------------------------------------------*
Local nMajorVersion := GetMajorVersion()
Local nMinorVersion := GetMinorVersion()
Local nBuildNumber := GetBuildNumber()
Local nPlatformId := GetPlatformId()
Local nServicePack := GetServicePackNT()
Local cServicePack := GetServicePackString()
Local cWinVersion := GetWinVersionString()
Local bWin95 := IsWin95()
Local bWin98 := IsWin98()
Local bWinME := IsWinME()
Local bWin9X := IsWin9X()
Local bWinNT := IsWinNT()
Local bWinNT4 := IsWinNT4()
Local bWin2000 := IsWin2K()
Local bWin2KorLater := IsWin2KorLater()
Local bWin2003 := IsWin2003()
Local bXP := IsWinXP()
Local bXPorLater := IsWinXPorLater()
Local bXPHome := IsWinXPHome()
Local bXPPro := IsWinXPPro()
Local bXPSP2 := IsWinXPSP2()
Local bMediaCenter := IsMediaCenter()
Local bVista := IsWinVista()
Local cRetString := ""
cRetString += "major version = " + NTRIM(nMajorVersion) + CRLF
cRetString += "minor version = " + NTRIM(nMinorVersion) + CRLF
cRetString += "build number = " + NTRIM(nBuildNumber) + CRLF
cRetString += "platform id = " + NTRIM(nPlatformId) + CRLF
cRetString += "service pack = " + NTRIM(nServicePack) + CRLF
cRetString += "service pack string = " + LTRIM(cServicePack) + CRLF
cRetString += "version string = " + LTRIM(cWinVersion) + CRLF
cRetString += "Win95 = " + IF(bWin95, "true", "false") + CRLF
cRetString += "Win98 = " + IF(bWin98, "true", "false") + CRLF
cRetString += "WinME = " + IF(bWinME, "true", "false") + CRLF
cRetString += "Win9X = " + IF(bWin9X, "true", "false") + CRLF
cRetString += "WinNT = " + IF(bWinNT, "true", "false") + CRLF
cRetString += "WinNT4 = " + IF(bWinNT4, "true", "false") + CRLF
cRetString += "Win2000 = " + IF(bWin2000, "true", "false") + CRLF
cRetString += "Win2K or later = " + IF(bWin2KorLater, "true", "false") + CRLF
cRetString += "Win2003 = " + IF(bWin2003, "true", "false") + CRLF
cRetString += "WinXP = " + IF(bXP, "true", "false") + CRLF
cRetString += "WinXP or later = " + IF(bXPorLater, "true", "false") + CRLF
cRetString += "WinXP Home = " + IF(bXPHome, "true", "false") + CRLF
cRetString += "WinXP Pro = " + IF(bXPPro, "true", "false") + CRLF
cRetString += "WinXP SP2 = " + IF(bXPSP2, "true", "false") + CRLF
cRetString += "Media Center = " + IF(bMediaCenter, "true", "false") + CRLF
cRetString += "Vista = " + IF(bVista, "true", "false")
Return cRetString
/////////////////////////////////////////////////////////////////////////////
// NAME DESCRIPTION
// --------------------- ----------------------------------------------
// GetMajorVersion() Get major version number
// GetMinorVersion() Get minor version number
// GetBuildNumber() Get build number (ANDed with 0xFFFF for Win9x)
// GetServicePackNT() Get service pack number
// GetPlatformId() Get platform id
// GetServicePackString() Get service pack string
// GetWinVersionString() Get windows version as string
// IsMediaCenter() TRUE = Media Center Edition
// IsWin95() TRUE = Win95
// IsWin98() TRUE = Win98
// IsWinME() TRUE = WinME
// IsWin2K() TRUE = Win2000
// IsWin2KorLater() TRUE = Win2000 or later
// IsWin2003() TRUE = Win2003
// IsWinXP() TRUE = WinXP
// IsWinXPorLater() TRUE = WinXP or later
// IsWinXPHome() TRUE = WinXP Home
// IsWinXPPro() TRUE = WinXP Pro
// IsWinXPSP2() TRUE = WinXP SP2
// IsWinVista() TRUE = Vista
*--------------------------------------------------------*
Function GetMajorVersion()
*--------------------------------------------------------*
Local aVer := GetWinVersionInfo()
Return aVer[1]
*--------------------------------------------------------*
Function GetMinorVersion()
*--------------------------------------------------------*
Local aVer := GetWinVersionInfo()
Return aVer[2]
*--------------------------------------------------------*
Function GetBuildNumber()
*--------------------------------------------------------*
Local aVer := GetWinVersionInfo()
Return aVer[3]
*--------------------------------------------------------*
Function GetPlatformId()
*--------------------------------------------------------*
Local aVer := GetWinVersionInfo()
Return aVer[4]
*--------------------------------------------------------*
Function GetWinVersionString()
*--------------------------------------------------------*
Local aVer := WinVersion()
Return aVer[1]
*--------------------------------------------------------*
Function GetServicePackString()
*--------------------------------------------------------*
Local aVer := WinVersion()
Return aVer[2]
*--------------------------------------------------------*
Function GetServicePackNT()
*--------------------------------------------------------*
Return IF(IsWin2KorLater(), Val( Right( Trim( GetServicePackString() ), 1 ) ), 0)
*--------------------------------------------------------*
Function IsWinXPHome()
*--------------------------------------------------------*
Local aVer := WinVersion()
Return IF(IsWinXP(), "Home" $ aVer[4], .F.)
*--------------------------------------------------------*
Function IsWinXPPro()
*--------------------------------------------------------*
Local aVer := WinVersion()
Return IF(IsWinXP(), "Pro" $ aVer[4], .F.)
*--------------------------------------------------------*
Function IsWinXPSP2()
*--------------------------------------------------------*
Return IF(IsWinXP(), GetServicePackNT() == 2, .F.)
#pragma BEGINDUMP
#define SM_MEDIACENTER 87
#include <windows.h>
#include "hbapiitm.h"
static void getwinver( OSVERSIONINFO * pOSvi )
{
pOSvi->dwOSVersionInfoSize = sizeof( OSVERSIONINFO );
GetVersionEx ( pOSvi );
}
HB_FUNC( ISWINNT )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_NT );
}
HB_FUNC( ISWIN9X )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS );
}
HB_FUNC( ISWIN95 )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS
&& osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 0 );
}
HB_FUNC( ISWIN98 )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS
&& osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 10 );
}
HB_FUNC( ISWINME )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS
&& osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 90 );
}
HB_FUNC( ISWINNT351 )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_NT
&& osvi.dwMajorVersion == 3 && osvi.dwMinorVersion == 51 );
}
HB_FUNC( ISWINNT4 )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_NT
&& osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 0 );
}
HB_FUNC( ISWIN2K )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 0 );
}
HB_FUNC( ISWINXP )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 1 );
}
HB_FUNC( ISWIN2003 )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 2 );
}
HB_FUNC( ISWINVISTA )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwMajorVersion == 6 && osvi.dwMinorVersion == 0 );
}
HB_FUNC( ISWIN2KORLATER )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwMajorVersion >= 5 );
}
HB_FUNC( ISWINXPORLATER )
{
OSVERSIONINFO osvi;
getwinver( &osvi );
hb_retl( osvi.dwPlatformId == VER_PLATFORM_WIN32_NT
&& ((osvi.dwMajorVersion == 5 && osvi.dwMinorVersion > 0) ||
(osvi.dwMajorVersion > 5)) );
}
HB_FUNC( GETWINVERSIONINFO )
{
OSVERSIONINFO osvi;
PHB_ITEM pArray = hb_itemArrayNew( 5 );
getwinver( &osvi );
hb_itemPutNL( hb_arrayGetItemPtr( pArray, 1 ), osvi.dwMajorVersion );
hb_itemPutNL( hb_arrayGetItemPtr( pArray, 2 ), osvi.dwMinorVersion );
if ( osvi.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS )
{
osvi.dwBuildNumber = LOWORD( osvi.dwBuildNumber );
}
hb_itemPutNL( hb_arrayGetItemPtr( pArray, 3 ), osvi.dwBuildNumber );
hb_itemPutNL( hb_arrayGetItemPtr( pArray, 4 ), osvi.dwPlatformId );
hb_itemPutC( hb_arrayGetItemPtr( pArray, 5 ), osvi.szCSDVersion );
hb_itemRelease( hb_itemReturn( pArray) );
}
HB_FUNC( ISMEDIACENTER )
{
if (GetSystemMetrics(SM_MEDIACENTER))
hb_retl( TRUE );
hb_retl( FALSE );
}
#pragma ENDDUMP
