VB6用什么API检测系统是64位还是32位，要求支持WIN7 XP,WIN10

逍遥爱迪生

vba,VB6用什么API检测系统是64位还是32位，要求支持WIN7 XP,WIN10

fxl447098457

下面的方案只是对应你谈到的win api获取结果。因为vb6只有32位应用,使用IsWow64Process即可。如果是office vba里就需要考虑32/64综合情况就需要配合win64和IsWow64Process才能准确系统位数.另外    GetSystemInfo也能获取你要的结果。

tanglf188

1、Application属性判断
Application.OperatingSystem
2、API判断
#If Win64 Then
    Private Declare PtrSafe Function GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) As Long
#Else
    Private Declare Function GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) As Long
#End If

Private Type SYSTEM_INFO
    dwOemId As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As LongPtr
    lpMaximumApplicationAddress As LongPtr
    dwActiveProcessorMask As Long
    dwNumberOfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End Type

Function Is64BitOS() As Boolean
    Dim sysInfo As SYSTEM_INFO
    Call GetSystemInfo(sysInfo)
    ' 检查最大应用程序地址是否大于2^32
    Is64BitOS = (sysInfo.lpMaximumApplicationAddress > &HFFFFFFFF)
End Function

Sub CheckOSArchitecture()
    If Is64BitOS() Then
        MsgBox "64位操作系统"
    Else
        MsgBox "32位操作系统"
    End If
End Sub

perfect131

11 楼
https://club.excelhome.net/forum ... 665190&pid=11273075