Detectar el Sistema Operativo (32 Bits)

Para saber en que sistema operativo se esta ejecutando nuestro programa, sólo necesitamos realizar una llamada al API “GetVersionEx”.

Este código es para aplicaciones 32 bits (VB4 32, VB5 y VB6).

En el módulo la declaración y la función:

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type

Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2

Public Function VersionWindows() As String
    Dim VerWin As OSVERSIONINFO
    VerWin.dwOSVersionInfoSize = Len(VerWin)
    GetVersionEx VerWin
    If VerWin.dwPlatformId = VER_PLATFORM_WIN32_NT Then
        VersionWindows = "Windows NT"
    ElseIf VerWin.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
        VersionWindows = "Windows 9x"
    End If
End Function

En el formulario incluir:

Option Explicit
Private Sub Form_Load()
    MsgBox VersionWindows, vbInformation, "Sistema Operativo"
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s