判断电脑系统是64位还是32位的模块

判断电脑系统是64位还是32位的模块/.子程序 系统位数, 整数型, 公开, 系统位数 32/64

szWinSysDir ＝ 取空白文本 (256)
uSize ＝ 256
unResult ＝ GetSystemDirectory (szWinSysDir, uSize)
.如果真 (unResult ＞ 0)
szKernel32File ＝ szWinSysDir ＋ “\kernel32.dll”
hLibKernel32 ＝ LoadLibrary (szKernel32File)
.如果真结束
.如果真 (hLibKernel32 ＝ 0)
hLibKernel32 ＝ LoadLibrary (“kernel32.dll”)
.如果真结束
.如果真 (hLibKernel32 ≠ 0)
lpIsWow64Process ＝ GetProcAddress (hLibKernel32, “IsWow64Process”)
.如果真结束
.如果真 (lpIsWow64Process ≠ 0)
.如果真 (IsWow64Process (GetCurrentProcess (), bIsWow64Process) ＝ 0)
FreeLibrary (hLibKernel32)
返回 (假)
.如果真结束

.如果真结束
.如果真 (hLibKernel32 ＝ 0)
FreeLibrary (hLibKernel32)
返回 (假)
.如果真结束
返回 (bIsWow64Process)