判断系统是否为64位

hModule ＝ GetModuleHandle (“kernel32.dll”)
addr ＝ GetProcAddress (hModule, “GetSystemWow64DirectoryA”)
.如果真 (addr ＝ 0)
' 没有这个函数,肯定是32位系统，因为这个函数是xp才加入的，xp之前没有64位操作系统
返回 (假)
.如果真结束
lpBuffer ＝ 取空白文本 (255)
ret ＝ call (addr, lstrcpy_文本 (lpBuffer, lpBuffer, 0), 255)
返回 (ret ＞ 0)
' 返回实际文本长度，为0就不存在syswow64目录，所以是32位系统，>0就是有syswow64目录，所以是64位系统