用GetVersionEx函数判断电脑系统类型

lpVersionInfoEx.dwOSVersionInfoSize ＝ 156
GetVersionExEx (lpVersionInfoEx)
调试输出 (到文本 (lpVersionInfoEx.dwPlatformId))
' lpVersionInfoEx.szCSDVersion 到文本获取到最后服务包
.判断开始 (lpVersionInfoEx.dwPlatformId ＝ #VER_PLATFORM_WIN32s)
系统版本 ＝ “Win32s”
.判断 (lpVersionInfoEx.dwPlatformId ＝ #VER_PLATFORM_WIN32_NT)
.判断开始 (lpVersionInfoEx.dwMajorVersion ＝ 4 且 lpVersionInfoEx.dwMajorVersion ＝ 0)
.如果 (寻找文本 (到文本 (lpVersionInfoEx.szCSDVersion), “B”, 1, 真) ≠ -1 或 寻找文本 (到文本 (lpVersionInfoEx.szCSDVersion), “C”, 1, 真) ≠ -1)
系统版本 ＝ “Windows 95 OSR2”
.否则
系统版本 ＝ “Windows 95”