How to Get Windows 3.1 Version Number in VB with GetVersion

This article was previously published under Q92936
This article has been archived. It is offered "as is" and will no longer be updated.
SUMMARY
From a Visual Basic program, you can determine the Windows version bycalling the Windows 3.1 API function GetVersion from the Windows kernelmodule. The GetVersion function can help your program accommodatedifferences in the way API calls operate between different versions ofWindows (such as differences between API parameters or return values).
MORE INFORMATION
The code example below shows how to make the GetVersion function call,which takes no parameters. The return value is a DWORD (double-word) value,which translates into a long integer (32-bit value) in Visual Basic.

The GetVersion function changed in Windows 3.1 from a WORD value toa DWORD (double-word) value. The low-order word returns the major (lowbyte) and minor (high byte) version numbers of Windows, and the high-order word returns the major (high byte) and minor (low byte) versionsof MS-DOS, if the function is successful.

For details on the GetVersion function, see pp. 469-470 in the "MicrosoftWindows Software Development Kit Programmer's Reference Vol. 2: Functions."

Step-by-Step Example

  1. Create a new form and add two text boxes (Text1 and Text2) and a command button (Command1).
  2. Add the following declaration to the General Declarations section:
       Declare Function GetVersion Lib "kernel" () As Long
  3. Add following code to the command button's Click event:
       Sub Command1_Click ()      I& = GetVersion()      Windows& = I& And &HFFFF&      Dos& = (I& And &HFFFF0000) / 65536      ' The low byte is derived by masking off high byte.      Lowbyte$ = Str$(Dos& And &HFF)      ' The high byte is derived by masking off low byte and shifting.      Highbyte$ = LTrim$(Str$((Dos& And &HFF00) / 256))      ' Assign MS-DOS version to Text property.      Text1.Text = Highbyte$ + "." + Lowbyte$      Lowbyte$ = Str$(Windows& And &HFF)      ' The high byte is derived by masking off low byte and shifting.      Highbyte$ = LTrim$(Str$((Windows& And &HFF00) / 256))      ' Assign Windows version to Text property.      Text2.Text = Lowbyte$ + "." + Highbyte$   End Sub
REFERENCES
"Microsoft Windows Software Development Kit Programmer's Reference Vol. 2:Functions", pp. 469-470.
1.00 2.00 3.00
Properties

Article ID: 92936 - Last Review: 10/14/2013 17:59:54 - Revision: 2.0

  • Microsoft Visual Basic 1.0 Standard Edition
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • kbnosurvey kbarchive KB92936
Feedback