Calling Win32 API Functions in VB 2010 - Listing 3

Imports System.Runtime.InteropServices

Public Class WindowsVersion
    Public Structure OSVersionInfo
        Public OSVersionInfoSize As Integer
        Public majorVersion As Integer
        Public minorVersion As Integer
        Public buildNumber As Integer
        Public platformId As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
        Public versionString As String
    End Structure

    Declare Ansi Function GetVersionEx Lib "kernel32.dll" _
     Alias "GetVersionExA" (ByRef osvi As OSVersionInfo) As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
        Dim osvi As New OSVersionInfo
        osvi.OSVersionInfoSize = Marshal.SizeOf(osvi)

        If GetVersionEx(osvi) Then
            Dim result As String =
                String.Format("Windows Version: {0}.{1}.{2}.{3}",
                osvi.majorVersion, osvi.minorVersion,
                osvi.buildNumber, osvi.platformId)
            MessageBox.Show(result)
        End If
    End Sub
End Class

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus

Featured

  • Visual Studio 2022 for Mac Dumps Mono for .NET 6

    Visual Studio for Mac has parted ways with the Mono runtime in the just-published Preview 5, now running on .NET 6.

  • .NET Community Toolkit v8.0 Preview Revamps MVVM Library

    Microsoft announced the first preview of .NET Community Toolkit v8.0.0, which revamps the MVVM library and introduces a new GitHub repo to host the project.

  • Microsoft Details Native Integration of Elastic on Azure

    Microsoft detailed the native integration of Elastic tech with its Azure cloud computing platform, increasing application observability.

  • Java on Visual Studio Code Going Cloud Native

    Cloud-native development figures prominently in a new roadmap published by Microsoft's Java on Visual Studio Code dev team.

Upcoming Events