Detectar a versão do Windows

[Kapiaba]

Modificações para a TSYSTEM.PRG

Código: Selecionar todos

METHOD WinVer() Class TSystemInfo

   Local cVersion := ""
 
   Do Case
   Case ::IsWin95()         ; cVersion := "Windows 95"
   Case ::IsWin95SP1()      ; cVersion := "Windows 95 Service Pack 1"
   Case ::IsWin95OSR2()     ; cVersion := "Windows 95 OSR2"
   Case ::IsWin98()         ; cVersion := "Windows 98"
   Case ::IsWin98SP1()      ; cVersion := "Windows 98 Service Pack 1"
   Case ::IsWin98SE()       ; cVersion := "Windows 98 Second Edition"
   Case ::IsWinME()         ; cVersion := "Windows ME"
   Case ::IsWinNT31()       ; cVersion := "Windows NT 3.1"
   Case ::IsWinNT35()       ; cVersion := "Windows NT 3.5"
   Case ::IsWinNT351()      ; cVersion := "Windows NT 3.51"
   Case ::IsWinNT4()        ; cVersion := "Windows NT 4"
   Case ::IsWin2000()       ; cVersion := "Windows 2000" + If( ::IsWin2000Prof(), " Professional", If( ::IsWin2000Server(), " Server", "" ) )  //+ " " + ::cSP + " build " + LTrim( Str( ::nBuild ) )
   Case ::IsWinXP()         ; cVersion := "Windows XP " + If( lAnd( ::wSteMask, 512 ), "Home Edition", "Professional" )
   Case ::IsWin2003Server() ; cVersion := "Windows Server 2003"
   Case IsWinVista() ; cVersion := "Windows Vista"
   Case IsWin7() ; cVersion := "Windows 7"
   Case IsWin8() ; cVersion := "Windows 8"
   Case IsWindows10() ; cVersion := "Windows 10"
   Otherwise                ; cVersion := "Unknown Windows version"
   EndCase

   cVersion += IF( IsWin64(), " 64 ", " 32 " ) + "Bits"

Return cVersion

Obg. abs.

[fladimir]

Ao testar em um micro com Windows 10 pesquisei via hbmk2 -find win10 e achei somente a função OS_IsWin10() da xhb.hbc

Porém não funciona (se alguém q tem Windows 10 puder testar)

Coloquei pra testar:

Código: Selecionar todos

if OS_IsWin10()
   Alert('Windows 10')
else
   Alert('Nao detectou a versao do windows 10')
endif

Hj pesquisando sobre o assunto achei esse tópico q vi q o Itamar postou q no Harbour 3.4 tem win_OsIs10() (q faz parte da hbwin.hbc), como não estou hj com micro Windows 10 seria bom alguém testar.

[rubens]

Fladimir...

Aqui não funcionou... retorna falso... compilado com o hb3.4.

Na minigui consigo com o WINDOWSVERSION()

Rubens

[fladimir]

Rubens...

Vc testou as 2 funções?

Código: Selecionar todos

OS_IsWin10() --> Essa testei e não funcionou

win_OsIs10() --> Essa não testei pq não estou mais no cliente q tem Windows 10