ACC: How to Determine Windows and MS-DOS Versions

MORE INFORMATION

The following example demonstrates how to use the GetVersion() Windows API function in the KERNEL.EXE dynamic link library (DLL) included with Windows:

NOTE: In the following sample code, an underscore (_) is used as a line- continuation character. Remove the underscore when re-creating this code in Access Basic.

   '====================================
   ' Global Declarations
   '====================================
   Option Explicit

   Declare Function GetVersion Lib "Kernel" () As Long

   Function SysVersions ()
      Dim ver As Long, WinVer As Long, DosVer As Long
      Dim WindowsVersion As String, DosVersion As String

      ver = GetVersion()

      WinVer = ver And &HFFF&
      WindowsVersion = Format((WinVer Mod 256) + _
         ((WinVer \ 256) / 100), "Fixed")

      DosVer = ver \ &H10000
      DosVersion = Format((DosVer \ 256) + _
         ((DosVer Mod 256) / 100), "Fixed")

      MsgBox "Windows Version: " & WindowsVersion _
         & Chr(13) & "DOS Version: " & DosVersion

   End Function
				

The GetVersion() function returns a value that is a DWORD (double word), which translates into a long integer (32-bit value) in Access Basic. The low-order word returns the major (low byte) and minor (high byte) Windows version number, and the high-order word returns the major (high byte) and minor (low byte) MS-DOS version number.