精彩编程与编程技巧-如何判别程序是在Win95或NT下执行？...

如何判别程序是在Win95或NT下执行？
　　调用 GetVersionEx 函数。

'声明:
Type OSVERSIONINFO
　　dwOSVersionInfoSize As Long 
　　dwMajorVersion As Long 
　　dwMinorVersion As Long 
　　dwBuildNumber As Long 
　　dwPlatformId As Long 
　　szCSDVersion As String * 128 
End Type
Public Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Boolean 
Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

'代码:

Dim Ver As OSVERSIONINFO
Ver.dwOSVersionInfoSize = Len(Ver)
Call GetVersionEx(Ver)
Dim hCursor As Long

　　调用之后，Ver.dwPlatformId 的值可用判断作业系统平台 - 95 或 NT，如下表：

VER_PLATFORM_WIN32s Win32s - 让 Windows 3.1 可执行 32 位元应用程序的平台 
VER_PLATFORM_WIN32_WINDOWS Windows 95, 98 
VER_PLATFORM_WIN32_NT Windows NT