Ejemplos usando el Api de windows para Visual basic

102 - GetVersionEx - Determinar la versión de windows

Volver al Listado Api - Anterior - Siguiente

Este ejemplo de la ApiGuide utiliza la función GetVersionEx para averiguar y determinar la versión de Windows instalada, incluyendo las versiones desde la 3 hasta la versión 2000, Xp.

A esta Api se le envía una estructura de datos o UDT llamada OSVERSIONINFOEX, que retorna la información. Luego se consulta la misma en un Select Case.

Código fuente:

Option Explicit ' Udt para utilizar con el Api GetVersionEx Private Type OSVERSIONINFOEX dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type 'Declaración del Api GetVersionEx Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _ (lpVersionInformation As OSVERSIONINFOEX) As Long 'Rutina que devuelve la versión de windows '################################################################### Public Function version_Windows() As String Dim T_Version As OSVERSIONINFOEX, Mayor As Long, Menor As Long Dim Pid As Long, ret As String 'Llena la estructura con el Api GetVersionEx With T_Version .dwOSVersionInfoSize = Len(T_Version) GetVersionEx T_Version Mayor = .dwMajorVersion Menor = .dwMinorVersion Pid = .dwPlatformId End With 'Se consulta la estructura devuelta con la información Select Case Mayor Case 5 If Menor = 0 Then ret = "WINDOWS 2000" ElseIf Menor = 1 Then ret = "WINDOWS XP" End If Case 4 If Pid = 2 Then ret = "WINDOWS NT VERSION 4.0" Else ret = IIf(Menor = 0, " WINDOWS 95", "WINDOWS 98") End If Case 3 If Pid = 2 Then ret = "WINDOWS NT VERSION 3.x" Else ret = "WINDOWS 3.x " End If Case Else ret = " No se puedo determinar la Versión del sistema " End Select 'Retorna la Versión del sistema instalada version_Windows = ret End Function Private Sub Command1_Click() MsgBox version_Windows End Sub

Relacionados

Buscar en Recursos vb