Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Windows version

RicardoFurtadoRicardoFurtado Member Posts: 205
How can i know the version of windows installed?
My thanks in advanced

Comments

  • BitByBit_ThorBitByBit_Thor Member Posts: 2,444
    : How can i know the version of windows installed?
    : My thanks in advanced
    :

    Hey,

    You're going to have to use API's for this.
    I'll post an example. If you need help just ask!
    [code]
    'This example needs a form and a module.
    'On the form, their should be two Labels (lbl_operatingplatform
    'and lbl_operatingsystem)
    'IN A FORM:
    Private Sub Form_Load()
    Select Case OperatingPlatform
    Case Enum_OperatingPlatform.Platform_Windows_32: lbl_operatingplatform.Caption = "Windows 32"
    Case Enum_OperatingPlatform.Platform_Windows_95_98_ME: lbl_operatingplatform.Caption = "Windows 95/98/ME"
    Case Enum_OperatingPlatform.Platform_Windows_NT_2K_XP: lbl_operatingplatform.Caption = "Windows NT/2K"
    End Select
    Select Case OperatingSystem
    Case System_Windows_32: lbl_operatingsystem.Caption = "Windows 32"
    Case System_Windows_95: lbl_operatingsystem.Caption = "Windows 95"
    Case System_Windows_98: lbl_operatingsystem.Caption = "Windows 98"
    Case System_Windows_ME: lbl_operatingsystem.Caption = "Windows ME"
    Case System_Windows_NT: lbl_operatingsystem.Caption = "Windows NT"
    Case System_Windows_2K: lbl_operatingsystem.Caption = "Windows 2K"
    Case System_Windows_XP: lbl_operatingsystem.Caption = "Windows XP"
    End Select
    End Sub
    'IN A MODULE:
    Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Long
    Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
    End Type
    Public Enum Enum_OperatingPlatform
    Platform_Windows_32 = 0
    Platform_Windows_95_98_ME = 1
    Platform_Windows_NT_2K_XP = 2
    End Enum
    Public Enum Enum_OperatingSystem
    System_Windows_32 = 0
    System_Windows_95 = 1
    System_Windows_98 = 2
    System_Windows_ME = 3
    System_Windows_NT = 4
    System_Windows_2K = 5
    System_Windows_XP = 6
    End Enum
    Public Function OperatingPlatform() As Enum_OperatingPlatform
    Dim lpVersionInformation As OSVERSIONINFO
    lpVersionInformation.dwOSVersionInfoSize = Len(lpVersionInformation)
    Call GetVersionExA(lpVersionInformation)
    OperatingPlatform = lpVersionInformation.dwPlatformId
    End Function
    Public Function OperatingSystem() As Enum_OperatingSystem
    Dim lpVersionInformation As OSVERSIONINFO
    lpVersionInformation.dwOSVersionInfoSize = Len(lpVersionInformation)
    Call GetVersionExA(lpVersionInformation)
    If (lpVersionInformation.dwPlatformId = Platform_Windows_32) Then
    OperatingSystem = System_Windows_32
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_95_98_ME) And (lpVersionInformation.dwMinorVersion = 0) Then
    OperatingSystem = System_Windows_95
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_95_98_ME) And (lpVersionInformation.dwMinorVersion = 10) Then
    OperatingSystem = System_Windows_98
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_95_98_ME) And (lpVersionInformation.dwMinorVersion = 90) Then
    OperatingSystem = System_Windows_ME
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_NT_2K_XP) And (lpVersionInformation.dwMajorVersion < 5) Then
    OperatingSystem = System_Windows_NT
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_NT_2K_XP) And (lpVersionInformation.dwMajorVersion = 5) And (lpVersionInformation.dwMinorVersion = 0) Then
    OperatingSystem = System_Windows_2K
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_NT_2K_XP) And (lpVersionInformation.dwMajorVersion = 5) And (lpVersionInformation.dwMinorVersion = 1) Then
    OperatingSystem = System_Windows_XP
    End If
    End Function
    [/code]

    Greets...
    Richard

Sign In or Register to comment.