揰掵佲 发表于 2014-10-4 10:21:59

取windows操作系统类别源码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

编辑框1.内容 ＝ 取操作系统类型 ()

.子程序 取操作系统类型, 文本型, 公开
.局部变量 lnVer, 整数型
.局部变量 lnVerNum, 双精度小数型
.局部变量 lText, 文本型

lnVer ＝ 右移 (左移 (GetVersion (), 16), 16)
lnVerNum ＝ 位与 (lnVer, 255) ＋ 右移 (位与 (lnVer, 65280), 8) ÷ 10
.判断开始 (lnVerNum ＝ 5)
lText ＝ “Windows 2000”
.判断 (lnVerNum ＝ 5.1)
lText ＝ “Windows XP”
.判断 (lnVerNum ＝ 5.2)
lText ＝ “Windows Server 2003”
.判断 (lnVerNum ＝ 6)
lText ＝ “Windows Vista”
.判断 (lnVerNum ＝ 6.1)
lText ＝ “Windows 7”
.判断 (lnVerNum ＝ 6.2)

lText ＝ “Windows 8”
.默认
lText ＝ “未知操作系统”
.判断结束
返回 (lText)

无极超哥 发表于 2014-10-4 15:16:50

不错啊！！！！！

SJJ 发表于 2014-11-2 17:02:14

点赞！
页: [1]
查看完整版本: 取windows操作系统类别源码