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的四種方法