Binaryworld - Find out the Windows version a program require ... [ VB -> Windows ]

Not all programs may run on all the Windows platforms. Often programs require at least a certain version of Windows. In most cases, this is due to the lack of specific functions in the SDK.

Anyway, to detect yourself whether a given EXE file can run under the current version of Windows (without running the program, of course) follow the next steps. First off, drop the declaration of the SHGetFileInfo API function into your program.

Click here to copy the following block

Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type

Public Const SHGFI_EXETYPE = &H2000

Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _
  ( ByVal pszPath As String, ByVal dwFileAttributes As Long, _
  psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long ) As _
  Long

The high word contains the major and the minor number of the required Windows version. It is 400 for Windows 9x/NT 4.0, 500 for Windows 2000, 30A for Windows 3.x.

Click here to copy the following block

dw = SHGetFileInfo(exename, 0, sfi, Len(sfi), SHGFI_EXETYPE)
hiWord = dw \ &H10000