Descobrindo se o S.O. é Windows 95 ou Windows NT

Descobrindo se o S.O. é Windows 95 ou Windows NT

‘DEMONSTRAÇÃO DE IDENTIFICAÇÃO DO SISTEMA OPERACIONAL CORRENTE.

‘FUNÇÕES

Public Declare Function GetVersionEx Lib “kernel32” Alias “GetVersionExA”
(lpVersionInformation As OSVERSIONINFO) As Long

‘CONSTANTES

Public Const VER_PLATFORM_WIN32_NT As Long = 2
Public Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
Public Const VER_PLATFORM_WIN32s As Long = 0

‘TIPOS

Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type


Public Function VerificarSistemaOperacional() As String
Dim osvSistema As OSVERSIONINFO
Dim sRetorno As String
On Error GoTo ERRO
osvSistema.dwOSVersionInfoSize = Len(osvSistema)
If GetVersionEx(osvSistema) = 0 Then
sRetorno = “SISTEMA OPERACIONAL NÃO IDENTIFICADO”
Else
If osvSistema.dwPlatformId = VER_PLATFORM_WIN32_NT Then
sRetorno = “WINDOWS NT”
ElseIf osvSistema.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
sRetorno = “WINDOWS 95”
ElseIf osvSistema.dwPlatformId = VER_PLATFORM_WIN32s Then
sRetorno = “WINDOWS 32s”
End If
End If

VerificarSistemaOperacional = sRetorno
Exit Function

ERRO:

VerificarSistemaOperacional = “ERRO AO IDENTIFICAR O SISTEMA OPERACIONAL”
End Function

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

This site uses Akismet to reduce spam. Learn how your comment data is processed.