Question

易语言识别系统怎么写啊，求大神帮我看看我这个哪里错了怎么提示不对。

.版本 2
.支持库 iext

.程序集 识别系统

.子程序 识别系统

.如果真 (API_取操作系统类型 () ＝ 2)
_启动窗口.透明标签3.标题 ＝ “当前系统：Window XP”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ 5)
.如果真 (是否64位操作系统 () ＝ 假)
信息框 (“当前系统为 Windows7 32位,本工具不支持此系统！”, 0, , )
结束 ()
.如果真结束

.如果真结束
.如果真 (API_取操作系统类型 () ＝ 1)
_启动窗口.透明标签3.标题 ＝ “当前系统：Windows 2000”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ 2)
_启动窗口.透明标签3.标题 ＝ “当前系统：Window XP”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ 3)
_启动窗口.透明标签3.标题 ＝ “当前系统：Windows Server 2003”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ 4)
_启动窗口.透明标签3.标题 ＝ “当前系统：Windows Vista”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ 6)
_启动窗口.透明标签3.标题 ＝ “当前系统：Windows 8”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ -1)
_启动窗口.透明标签3.标题 ＝ “当前系统：未知”
.如果真结束
.如果真 (API_取操作系统类型 () ＝ 5)
.如果真 (是否64位操作系统 () ＝ 真)
_启动窗口.透明标签3.标题 ＝ “当前系统：Win7 64位”
.如果真结束

.如果真结束

.子程序 API_取操作系统类型, 整数型, , 【1=Windows 2000】【2=Window XP】【3=Windows Server 2003】【4=Windows Vista】【5=Windows 7】【6=Windows 8】【-1=未知】
.局部变量 lnVer, 整数型
.局部变量 lnVerNum, 双精度小数型
.局部变量 lText, 整数型

lnVer ＝ 右移 (左移 (GetVersion (), 16), 16)
lnVerNum ＝ 位与 (lnVer, 255) ＋ 右移 (位与 (lnVer, 65280), 8) ÷ 10
.判断开始 (lnVerNum ＝ 5)
lText ＝ 1
.判断 (lnVerNum ＝ 5.1)
lText ＝ 2
.判断 (lnVerNum ＝ 5.2)
lText ＝ 3
.判断 (lnVerNum ＝ 6)
lText ＝ 4
.判断 (lnVerNum ＝ 6.1)
lText ＝ 5
.判断 (lnVerNum ＝ 6.2)
lText ＝ 6
.默认
lText ＝ -1
.判断结束
返回 (lText)

Answer 1

win7取的方式,最好是让 内建浏览器来运行JS代码,来获取到系统版本,稳定性还是不错的.

Answer 2

这玩意也就在32位系统下有效！！！