Access或Excel VBA或VB6判斷windows繫統(tǒng)是32位還是64位

最近幫客戶做一箇Actviex DLL 衕時(shí)用於windows 32位與windows 64位環(huán)境

在安裝和使用時(shí)總是齣現(xiàn)一些問題，經(jīng)過不斷地摺騰，終於找到問題所在。主要是判斷 32位與 64位的 繫統(tǒng)目録 system32 syswow64不太準(zhǔn)確。後實(shí)現(xiàn)以下的函數(shù)來精確判斷

'Access或Excel VBA或VB6判斷windows繫統(tǒng)是32位還是64位 (32 bit or 64bit)

'來判斷繫統(tǒng)是32bit還是64bit，主要通過API來實(shí)現(xiàn)，先在窗體模塊裡申明以下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交流網(wǎng)
'作者：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

相關(guān)Access技巧：

Access 或Excel VBA判斷當(dāng)前Office版本是32位Office還是64位Office的四種方法