Binaryworld - How to check whether your program is running on Windows NT/2000 ? ... [ VB -> Windows ]

This simple code will tell you whether your program is running on NT/2000 platform or Win9x/ME.

Step-By-Step Example

- Create a standard exe project
- Add the following code in the form1 code window

Form1.frm

Click here to copy the following block

' Types, constants and functions for OS version detection
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Private Const VER_PLATFORM_WIN32_NT As Long = 2

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
    (lpVersionInformation As OSVERSIONINFO) As Long

Private Sub Form_Load()
  If IsNT = True Then
    MsgBox "You are running on NT"
  Else
    MsgBox "You are not running on NT"
  End If
End Sub

' IsNT() function returns True, if the program works
' in Windows NT/Windows 2000/Windows XP operating system, and False otherwise.
Private Function IsNT() As Boolean
Dim OSVer As OSVERSIONINFO
OSVer.dwOSVersionInfoSize = Len(OSVer)
GetVersionEx OSVer
IsNT = (OSVer.dwPlatformId = VER_PLATFORM_WIN32_NT)
End Function

- Now press F5 to run the project