Get WinVersion Demo

HMG Samples and Enhancements

Moderator: Rathinagiri

Post Reply
User avatar
gfilatov
Posts: 1088
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Contact:

Get WinVersion Demo

Post by gfilatov »

Hi to all,

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
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein
User avatar
Roberto Lopez
HMG Founder
Posts: 4012
Joined: Wed Jul 30, 2008 6:43 pm

Re: Get WinVersion Demo

Post by Roberto Lopez »

gfilatov wrote:Hi to all,

The following test program demonstrate using of
C-code for detect the current Windows version.
Thanks, is looks very Nice and useful!

Regards,

Roberto.
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
Post Reply