DESCOBRIR VERSAO DO WINDOWS

USUARIO.EXCLUIDOS 13/07/2004 12:45:28
#33334 Resposta escolhida

FRED:

Coloque em um módulo:

--------------------------------------------------------------------------------------------

Public MeuSistema As Sistema
Public Sistema_Operacional As String

Public VersaoMaior As String
Public VersaoMenor As String
Public VersaoContrucao As String

Const VER_PLATFORMA_WIN32_NT = 2

Type Sistema
dwOSVersaoTamanho As Long
dwMaiorVersao As Long
dwMenorVersao As Long
dwConstrucao As Long
dwPlataforma As Long
szCSDVersao As String * 128
End Type

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As Sistema) As Long

Public Function QualWindows() As Boolean
MeuSistema.dwOSVersaoTamanho = Len(MeuSistema)
GetVersionEx MeuSistema
IsWinNT = (MeuSistema.dwPlataforma = VER_PLATFORMA_WIN32_NT)
Select Case MeuSistema.dwPlataforma
Case 0
Sistema_Operacional = "Windows 32s "
Case 1
Sistema_Operacional = "Windows 95/98"
Case 2
Sistema_Operacional = "Windows NT/2000/XT "
End Select

VersaoMaior = MeuSistema.dwMaiorVersao
VersaoMenor = MeuSistema.dwMenorVersao
VersaoContrucao = MeuSistema.dwConstrucao

End Function

--------------------------------------------------------------------------------------------

Em algum lugar do Form, de acordo com seu interesse, chame a rotina:

QualWindows

As variáveis públicas trarão o resultado.