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].