60.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 37 行

如何判别程序是在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 

　　除了 Ver.dwPlatformId 之外， Ver.dwMajorVersion 及 Ver.dwMinorVersion 可用来判断版本，以 Windows 95 为例， Ver.dwMajorVersion 等于 4, 而 Ver.dwMinorVersion 等于 0， 表示 Windows 95 是 4.0 版。