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

最近幫客戶做一個(gè)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的四種方法