一键获取本机操作系统和屏幕分辨率

peb ＝ CallWindowProcA ({ 85, 139, 236, 100, 161, 24, 0, 0, 0, 139, 64, 48, 139, 229, 93, 195 }, 0, 0, 0, 0)
teb ＝ CallWindowProcA ({ 85, 139, 236, 100, 161, 24, 0, 0, 0, 139, 229, 93, 195 }, 0, 0, 0, 0)
.如果 (取文本左边 (取十六进制文本 (peb), 4) ＝ “7FFD” 且 取文本左边 (取十六进制文本 (teb), 4) ＝ “7FFD”)
' nt类型
OSMinorVersion ＝ 取字节集数据 (指针到字节集 (peb ＋ 168, 4), #整数型, )
OSMajorVersion ＝ 取字节集数据 (指针到字节集 (peb ＋ 164, 4), #整数型, )
.如果 (OSMajorVersion ＝ 5)
.判断开始 (OSMinorVersion ＝ 0)
返回 (“Windows 2000”)
.判断 (OSMinorVersion ＝ 1)
返回 (“Windows XP”)
.判断 (OSMinorVersion ＝ 2)
返回 (“Windows 2003”)
.默认

.判断结束

.否则
返回 (“Windows NT”)
.如果结束

.否则
.如果真 (取字节集数据 (指针到字节集 (teb ＋ 84, 4), #整数型, ) ＝ 5439488)
返回 (“Windows 98”)
.如果真结束
.如果真 (取字节集数据 (指针到字节集 (teb ＋ 88, 4), #整数型, ) ＝ 5439488)
返回 (“Windows 95”)
.如果真结束
.如果真 (取字节集数据 (指针到字节集 (teb ＋ 124, 4), #整数型, ) ＝ 5439488)
返回 (“Windows ME”)