易语言怎么检查系统版本

更新时间：2019-02-23 06:22:08 178次访问

感谢

用精易模块 用：

系统_取系统版本 (, , , , , )

   子程序名：系统_取系统版本
   支持获取win98、win2000 、winXP、win2003 、win2008 、win7 、win8 、win2012、win8.1 、win10 系统版本。
   返回值类型：文本型
   参数<1>的名称为“参_主版本”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：变量储存返回值。
   参数<2>的名称为“参_次版本”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：变量储存返回值。
   参数<3>的名称为“参_是否带名称”，类型为“逻辑型”，允许接收空参数数据。注明：是否带版本名称描述，如 专业版，企业版等。
   参数<4>的名称为“参_是否取位数”，类型为“逻辑型”，允许接收空参数数据。注明：操作系统位数，如32位或64位。
   参数<5>的名称为“参_取SP版本号”，类型为“逻辑型”，允许接收空参数数据。
   参数<6>的名称为“参_取内部版本”，类型为“逻辑型”，允许接收空参数数据。注明：build内部版本。

.版本 2
.dll命令 GetVersion, 整数型, "kernel32.dll", "GetVersion", , ,
.版本 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)