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

易语言 2020-08-20 17:01:54

用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”