看流星社区

 找回密码
 注册账号
查看: 2819|回复: 1

易语言 取系统版本 Windows95 98 ME NT 2000 XP 2003 VISTA win7

[复制链接]

该用户从未签到

发表于 2017-6-14 09:44:08 | 显示全部楼层 |阅读模式
取系统信息()


GetVersion


源码在这里
.版本 2


.程序集 窗口程序集1


.子程序 取系统版本, 整数型, 公开


置入代码 ({ 83, 51, 192, 100, 139, 29, 24, 0, 0, 0, 100, 139, 13, 48, 0, 0, 0, 133, 201, 121, 32, 185, 0, 0, 83, 0, 57, 75, 88, 117, 4, 176, 1, 235, 92, 57, 75, 84, 117, 4, 176, 2, 235, 83, 57, 75, 124, 117, 78, 176, 3, 235, 74, 139, 153, 168, 0, 0, 0, 139, 137, 164, 0, 0, 0, 131, 249, 4, 119, 4, 176, 4, 235, 53, 131, 249, 5, 117, 27, 131, 251, 0, 117, 4, 176, 5, 235, 39, 131, 251, 1, 117, 4, 176, 6, 235, 30, 131, 251, 2, 117, 4, 176, 7, 235, 21, 131, 249, 6, 117, 7, 131, 251, 0, 117, 4, 176, 8, 235, 7, 131, 251, 1, 117, 2, 176, 9, 91, 139, 229, 93, 195 })
返回 (0)


.子程序 版本判定

.如果 (取系统版本 () = 0)
系统框.内容 = “未知”
.否则

.如果结束
.如果 (取系统版本 () = 1)
系统框.内容 = “Windows95”
.否则

.如果结束
.如果 (取系统版本 () = 2)
系统框.内容 = “Windows98”
.否则

.如果结束
.如果 (取系统版本 () = 3)
系统框.内容 = “WindowsME”
.否则

.如果结束
.如果 (取系统版本 () = 4)
系统框.内容 = “WindowsNT”
.否则

.如果结束
.如果 (取系统版本 () = 5)
系统框.内容 = “Windows2000”
.否则


.如果结束
.如果 (取系统版本 () = 6)
系统框.内容 = “WindowsXP”
.否则

.如果结束
.如果 (取系统版本 () = 7)
系统框.内容 = “Windows2003”
.否则

.如果结束
.如果 (取系统版本 () = 8)
系统框.内容 = “WindowsVista”
.否则

.如果结束
.如果 (取系统版本 () = 9)
系统框.内容 = “Windows7”
.否则

.如果结束


.子程序 _按钮EX1_左键单击

版本判定 ()
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-19 14:02

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表