Необходимо исправить эту ошибку: «Не удается найти точку входа DLL GetSystemInfo в kernel32»

Question

Ошибка: «Не удается найти точку входа DLL GetSystemInfo в kernel32» при выполнении приведенного ниже кода, но только с более новой версией Kernel32.dll.

Kernel32.dll 6.1.7601.24441 на первой машине - НЕ работает 6.1.7601.24236 на второй машине, работает нормально 6.1.7601.24168 на третьей машине - работает нормально

протестировано на 32-битных и 64-битных версиях Microsoft Access ошибка клиента при использовании Kernel32.dll 6.1.7601.24441 в 64-разрядной версии Windows 7 Enterprise с 64-разрядной версией Microsoft Access 2016 MSO (16.0.4639.1000) все обновления окон и офиса применены

Два объекта MS-Access: одна форма и один модуль MS-Access Form требуется командная кнопка с именем btnDetermineBitVersion

'-----------------begin of form Code

Option Compare Database
Option Explicit

Private Sub btnDetermineBitVersion_Click()
    Dim isSixtyFour As Boolean
    Dim strMessage As String

    isSixtyFour = IsOffice64Bit()

    If isSixtyFour Then
        strMessage = "Using 64 bit version of Microsoft Access"
    Else
        strMessage = "Using 32 bit version of Microsoft Access"
    End If

    MsgBox strMessage, vbInformation, "Library Health Check"

End Sub
' ----------------------- end of Form code
'------------------------ begin of Module
Option Compare Database
Option Explicit

Public Const PROCESSOR_INTEL_386 As Long = 386
Public Const PROCESSOR_INTEL_486 As Long = 486
Public Const PROCESSOR_INTEL_PENTIUM As Long = 586
Public Const PROCESSOR_MIPS_R4000 As Long = 4000
Public Const PROCESSOR_ALPHA_21064 As Long = 21064
Public Const PROCESSOR_PPC_601 As Long = 601
Public Const PROCESSOR_PPC_603 As Long = 603
Public Const PROCESSOR_PPC_604 As Long = 604
Public Const PROCESSOR_PPC_620 As Long = 620
Public Const PROCESSOR_HITACHI_SH3 As Long = 10003
Public Const PROCESSOR_HITACHI_SH3E As Long = 10004
Public Const PROCESSOR_HITACHI_SH4 As Long = 10005
Public Const PROCESSOR_MOTOROLA_821 As Long = 821
Public Const PROCESSOR_SHx_SH3 As Long = 103
Public Const PROCESSOR_SHx_SH4 As Long = 104
Public Const PROCESSOR_STRONGARM As Long = 2577
Public Const PROCESSOR_ARM720 As Long = 1824
Public Const PROCESSOR_ARM820 As Long = 2080
Public Const PROCESSOR_ARM920 As Long = 2336
Public Const PROCESSOR_ARM_7TDMI As Long = 70001

Public Const PROCESSOR_ARCHITECTURE_INTEL As Long = 0
Public Const PROCESSOR_ARCHITECTURE_MIPS As Long = 1
Public Const PROCESSOR_ARCHITECTURE_ALPHA As Long = 2
Public Const PROCESSOR_ARCHITECTURE_PPC As Long = 3
Public Const PROCESSOR_ARCHITECTURE_SHX As Long = 4
Public Const PROCESSOR_ARCHITECTURE_ARM As Long = 5
Public Const PROCESSOR_ARCHITECTURE_IA64 As Long = 6
Public Const PROCESSOR_ARCHITECTURE_ALPHA64 As Long = 7
Public Const PROCESSOR_ARCHITECTURE_AMD64 As Long = 9
Public Const PROCESSOR_ARCHITECTURE_UNKNOWN As Long = &HFFFF&

Public Const PROCESSOR_LEVEL_80386 As Long = 3
Public Const PROCESSOR_LEVEL_80486 As Long = 4
Public Const PROCESSOR_LEVEL_PENTIUM As Long = 5
Public Const PROCESSOR_LEVEL_PENTIUMII As Long = 6

Public Const sCPURegKey = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"

Public Const HKEY_LOCAL_MACHINE As Long = &H80000002


#If VBA7 Then
    Public Type SYSTEM_INFO
       wProcessorArchitecture As Integer
       dwOemID As Long
       dwPageSize As Long
       lpMinimumApplicationAddress As LongPtr
       lpMaximumApplicationAddress As LongPtr
       dwActiveProcessorMask As LongPtr
       dwNumberOfProcessors As Long
       dwProcessorType As Long
       dwAllocationGranularity As Long
       wProcessorLevel As Integer
       wProcessorRevision As Integer
    End Type
#Else
    Public Type SYSTEM_INFO
       wProcessorArchitecture As Integer
       dwOemID As Long
       dwPageSize As Long
       lpMinimumApplicationAddress As Long
       lpMaximumApplicationAddress As Long
       dwActiveProcessorMask As Long
       dwNumberOfProcessors As Long
       dwProcessorType As Long
       dwAllocationGranularity As Long
       wProcessorLevel As Integer
       wProcessorRevision As Integer
    End Type
#End If

#If VBA7 Then
    Public Declare PtrSafe Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
#Else
    Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
#End If

#If VBA7 Then
    Declare PtrSafe Function IsWow64Process Lib "kernel32" ( _
        ByVal hProcess As LongPtr, _
        ByRef Wow64Process As Boolean) As Boolean

    Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr
#Else
    Declare Function IsWow64Process Lib "kernel32" ( _
        ByVal hProcess As Long, _
        ByRef Wow64Process As Boolean) As Boolean

    Declare Function GetCurrentProcess Lib "kernel32" () As Long
#End If

Function IsOffice64Bit() As Boolean

    Dim SI As SYSTEM_INFO

    IsOffice64Bit = False
    GetSystemInfo SI
    If SI.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 Then
        IsWow64Process GetCurrentProcess(), IsOffice64Bit
        IsOffice64Bit = Not IsOffice64Bit
    End If

End Function

'------------------------end of Module

Ожидаемый результат - простое сообщение. Результатом работы на компьютере с использованием Kernel32.dll версии 6.1.7601.24441 является либо сбой, либо «Не удается найти точку входа DLL GetSystemInfo в kernel32».

Answer 1

Было обнаружено, что программа безопасности моего клиента с именем «PROTECT» блокировала сценарии в файлах нашей интерфейсной программы MS-Access от доступа к kernel32.dll. Спасибо всем, что сделали попытку.

Answer 2

Поскольку у меня нет Windows 7, я, к сожалению, не могу это проверить.

Но поскольку ваш вопрос не говорит точно, нужно ли вам точно решить проблему API или просто нужна функциональность, вот простое альтернативное решение:

Public Function IsOffice64Bit() As Boolean
    #If Win64 Then
        IsOffice64Bit = True
    #End If
End Function