訪問x64 VBA - 嘗試從user32.dll加載字符串時出現ERROR_RESOURCE_DATA_NOT_FOUND

我正試圖在Access 2016 x64中找到user32.dll中的本地化按鈕標題。訪問x64 VBA - 嘗試從user32.dll加載字符串時出現ERROR_RESOURCE_DATA_NOT_FOUND

奇怪的是，在安裝了Access 2010 x86的另一臺機器上，代碼完美運行。

的代碼如下：

Option Compare Database 
Option Explicit 

Private Declare PtrSafe Function LoadString Lib "user32" Alias "LoadStringA" (_ 
    ByVal hInstance As Long, _ 
    ByVal uID As Long, _ 
    ByVal lpBuffer As String, _ 
    ByVal nBufferMax As Long) _ 
    As Long 

Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (_ 
    ByVal lpFileName As String) _ 
    As Long 

Private Enum CAPTION 
    OK_CAPTION = 800 
    CANCEL_CAPTION = 801 
    ABORT_CAPTION = 802 
    RETRY_CAPTION = 803 
    IGNORE_CAPTION = 804 
    YES_CAPTION = 805 
    NO_CAPTION = 806 
    CLOSE_CAPTION = 807 
    HELP_CAPTION = 808 
    TRYAGAIN_CAPTION = 809 
    CONTINUE_CAPTION = 810 
End Enum 

Private Const lPath As String = "user32.dll" 
Private Const BufferMax As Long = 256 
Private Const cIndex As Long = CAPTION.OK_CAPTION 

Private Sub cmdGetCaptionById_Click() 
    Dim Buffer As String * BufferMax 
    Dim Instance As Long 
    Dim sLen As Long 
    Instance = LoadLibrary(lPath) 
    sLen = LoadString(Instance, cIndex, Buffer, BufferMax) 
    If sLen <> 0 Then 
     Caption = Left(Buffer, sLen) 
     MsgBox Caption, vbInformation 
    Else 
     MsgBox "No caption found, error " & Err.LastDllError, vbCritical 
    End If 
End Sub

我不能設法進入if塊，就好像他沒有找到STRINGTABLE。
詳細的錯誤：

ERROR_RESOURCE_DATA_NOT_FOUND 
1812 (0x714) 
The specified image file did not contain a resource section.

預期串輸出，基於CINDEX（在這種情況下，OK_CAPTION，其具有ID = 800）：

Caption = "Ok"

幫助十分讚賞！

來源

2016-11-17 Yan Karin

你只是陳述一個事實。就像錯誤消息告訴你的，更高版本的Windows不再在user32.dll中包含這些字符串。依靠這些實施細節總是一個非常糟糕的做法，雞回家棲息。 –

我實際上使用ResourceViewer .NET打開了user32.dll，我發現它們都是非常奇怪的。 –

修正了它，LoadLibrary應該返回LongPtr，而不是Long。 –

調用LoadLibrary應該返回LongPtr而不是龍。
因此，ByVal hInstance As LongPtr而不是ByVal hInstance As Long
和最後Dim Instance As LongPtr而不是Dim Instance As Long。
希望能幫助別人！

來源

2016-12-05 19:37:48

訪問x64 VBA - 嘗試從user32.dll加載字符串時出現ERROR_RESOURCE_DATA_NOT_FOUND

回答

相關問題