Comment détecter si le pc est en 32 bits ou 64 bits?

l'ai eu à partir
http://www.msoffice.us/Access/PDF/Extending%20VBA%20with%20APIs.pdf. Semble que cela fonctionne sur le mien.

Option Compare Database

Type SYSTEM_INFO
wProcessorArchitecture As Integer
wReserved As Integer
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
wProcessorLevel As Integer
wProcessorRevision As Integer
End Type

Declare Sub GetNativeSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Declare Function GetCurrentProcess Lib "kernel32" () As Long

Public Function Is64BitProcessor() As Boolean
Const PROCESSOR_ARCHITECTURE_AMD64 As Integer = 9
Const PROCESSOR_ARCHITECTURE_IA64 As Integer = 6
Dim si As SYSTEM_INFO
' call the API
GetNativeSystemInfo si
' check the struct
Is64BitProcessor = (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 _
Or _
si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64)
End Function

http://msdn.microsoft.com/en-us/library/ms724340(v=vs. 85).aspx

OriginalL'auteur THEn

@Wouter de Simon réponse est en quelque sorte sur la bonne voie, mais vraiment incomplet. Il manque un couple de Declare consolidés ainsi comme une sorte d'explication.

Donc je crois qu'il est inutile de présenter une information plus complète et la version de travail ici.

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 hProcess As Long, ByRef Wow64Process As Long) As Long

Sub CheckWhetherIts64()

    Dim Its64 As Long
    Dim handle As Long

    handle = GetProcAddress(GetModuleHandle("kernel32"), _
                   "IsWow64Process")

    If handle > 0 Then ' IsWow64Process function exists
        ' Now use the function to determine if
        ' we are running under Wow64

        IsWow64Process GetCurrentProcess(), Its64
    End If
    If Its64 = 1 Then
        MsgBox "it's a 64 bit process."
    End If
End Sub

Mise en garde:

Pour la compatibilité avec les systèmes d'exploitation ne prennent pas en charge cette fonction, appelez GetProcAddress pour détecter si IsWow64Process est mis en œuvre dans Kernel32.dll. Si GetProcAddress réussit, il est possible d'appeler cette fonction. Sinon, WOW64 n'est pas présent. Notez que cette technique n'est pas un moyen fiable de détecter si le système d'exploitation est une version 64 bits de Windows car Kernel32.dll dans les versions actuelles de Windows 32 bits contient également cette fonction.

http://msdn.microsoft.com/en-us/library/ms684139%28v=vs.85%29.aspx

OriginalL'auteur Jean-François Corbett

De compilation conditionnelle pourrait être très utile, WinXX détecte environnement, mais pas des propriétés du matériel, exemple ci-dessous :

   Dim mVers   As String

Sub Init()

    #If Win64 Then
        mVers = "Win64" ' Win64=true, Win32=true, Win16= false
        Call VerCheck
    #ElseIf win32 Then
        mVers = "Win32"  ' Win32=true, Win16=false
        Call VerCheck
    #ElseIf win16 Then
        mVers = "Win16"  ' Win16=true
        Call VerCheck
    #End If

End Sub

Sub VerCheck()
    MsgBox "Version: " & mVers, vbInformation, "Version"
End Sub

OriginalL'auteur Qbik