判断系统是否64位或是32位的模块源码

.子程序 isWow64, 逻辑型
.局部变量 szWinSysDir, 文本型
.局部变量 uSize, 整数型
.局部变量 unResult, 整数型
.局部变量 szKernel32File, 文本型
.局部变量 hLibKernel32, 整数型
.局部变量 lpIsWow64Process, 整数型
.局部变量 bIsWow64Process, 逻辑型

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)