|
发表于 2013-10-10 19:33:13
|
显示全部楼层
四川省广安市
[e]
.版本 2
.DLL命令 GetVersion, 整数型, "kernel32.dll", "GetVersion", , ,
[/e]
[e]
.版本 2
.子程序 取操作系统, 文本型, , 5.0=Win 2000, 5.1=Win XP, 6.0=Vista
.局部变量 lnVer, 整数型
.局部变量 lnVerNum, 双精度小数型
lnVer = 右移 (左移 (GetVersion (), 16), 16)
lnVerNum = 位与 (lnVer, 255) + 右移 (位与 (lnVer, 65280), 8) ÷ 10
输出调试文本 (lnVerNum)
.判断开始 (lnVerNum = 5)
返回 (“Windows 2000”)
.判断 (lnVerNum = 5.1)
返回 (“Windows XP”)
.判断 (lnVerNum = 5.2)
返回 (“Windows Server 2003”)
.判断 (lnVerNum = 6)
返回 (“Vista”)
.判断 (lnVerNum = 6.1)
返回 (“Windows 7”)
.判断 (lnVerNum = 6.1)
返回 (“Windows 8”)
.默认
返回 (“?”)
[/e] |
|