易语言 取系统版本 Windows95 98 ME NT 2000 XP 2003 VISTA win7
取系统信息（）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_左键单击
版本判定 ()
页:
[1]