GetProcAddressによるPostMessage APIの取得方法は？

Question

私は、PostMessage apiとprocedureという署名を持つグローバル変数を持っています。私のプログラムのいくつかの他のユニットではPostMessageを呼び出し、その後PostMessageを呼び出します。

私のテストでは、PostMessageは動作しません。何も起こらず、エラー例外も発生しません。任意の助けによって

var 

    PostMessageAddr_: function(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;stdcall; 

... 

    procedure GetPostMessage; 
    var 
    hModulo: HMODULE; 
    begin 
     hModulo := GetModuleHandle(User32); 
     PostMessageAddr_ := GetProcAddress(hModulo, 'PostMessage'); 
     FreeLibrary(hModulo); 
    end; 

感謝：

は、ここに私のコードです。

Answer 1

PostMessage()は'PostMessage'としてエクスポートされないため、GetProcAddress('PostMessage')コールでは検索できません。実際には、ANSIの場合はPostMessageA()、Unicodeの場合は'PostMessageW()の2つの別個の関数としてエクスポートされます。PostMessage()は、コンパイルする環境に基づいて他の関数にマップするエイリアスです。

また、GetModuleHandle()から取得したハンドルにFreeLibrary()を呼び出さず、LoadLibrary/Ex()からのみ呼び出してください。

代わりにこれを試してみてください：

var 
PostMessageAddr_: function(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall; 

... 

procedure GetPostMessage; 
var 
    hModulo: HMODULE; 
begin 
    hModulo := GetModuleHandle(User32); 
    @PostMessageAddr_ := GetProcAddress(hModulo, {$IFDEF UNICODE}'PostMessageW'{$ELSE}'PostMessageA'{$ENDIF}); 
end; 

言われていること、デルファイ独自のWindowsユニットはすでに手動でポインタを取得する必要はありません、あなたのためのPostMessage()にリンケージを宣言します。 uses句にWindowsを含め、他の機能と同様にPostMessage()を呼び出してください。