Access或Excel VBA或VB6判断windows系统是32位还是64位

最近帮客户做一个Actviex DLL 同时用于windows 32位与windows 64位环境

在安装和使用时总是出现一些问题，经过不断地折腾，终于找到问题所在。主要是判断 32位与 64位的 系统目录 system32 syswow64不太准确。后实现以下的函数来精确判断

'Access或Excel VBA或VB6判断windows系统是32位还是64位 (32 bit or 64bit)

'来判断系统是32bit还是64bit，主要通过API来实现，先在窗体模块里申明以下API定义：

Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, bWow64Process As Boolean) As Long

'来源：Access交流网
'作者：tmtony  Public Function Is64bit() As Boolean
    Dim handle As Long, bolFunc As Boolean
    bolFunc = False
    handle = GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process")
    If handle > 0 Then
        IsWow64Process GetCurrentProcess(), bolFunc
    End If
    Is64bit = bolFunc
End Function

Private Sub Form_Load()
    lblWindowBit.Caption = Is64bit
End Sub

相关Access技巧：

Access 或Excel VBA判断当前Office版本是32位Office还是64位Office的四种方法