他のウィンドウのメッセージを取得する

最終更新 2004 02/25

サンプルのダウンロード → BCB_MessageHook.lzh(136k)

【 プロジェクトの構築方法 】

BCB_MessageHook フォルダと BCB_MessageHookDLL フォルダを適当な場所に作り
そこにソースファイルをコピーします。

●BCB_MessageHook フォルダ

BCB メニューの「アプリケーションの新規作成(T)」を選んだ後
「すべて保存(V)」を選びます。
ファイルを保存する場所を BCB_MessageHook フォルダに変更してから
ソースファイル名はそのまま保存して、プロジェクトファイルだけ
BCB_MessageHook.bpr に名前を変更して保存します。

BCB のイベントはソースをコピーするだけでは認識してくれないので
FormCreate イベントと FormCloseQuery イベントの部分は
オブジェクトインスペクタのイベントから呼び出して、別途ソースを
貼り付けないといけません。

フォーム１にラベルを次のように配置します。




フォーム１はオブジェクトインスペクタで次のように設定します。

BorderIcons - biMinimize = false
BorderStyle = bsSingle
Caption     = フック実行ウィンドウ
Height      = 110
Width       = 300
Position    = poDefaultPosOnly


●BCB_MessageHookDLL フォルダ

BCB メニューの「新規作成(N)」を選んだ後、新規作成ダイアログの
「新規作成」タブから「DLL ウィザード」を選択します。




DLL ウィザードダイアログで「ソースの種類」を C++(+)、VCL を使う(V)
に設定します。




BCB メニューの「すべて保存(V)」を選びます。
ファイルを保存する場所を BCB_MessageHookDLL フォルダに変更してから
ソースファイル名はそのまま保存して、プロジェクトファイルだけ
BCB_MessageHookDLL.bpr に名前を変更して保存します。
そうしたら Unit1.cpp にサンプルソースを貼り付けてプロジェクトを
メイクします。



【 サンプルの実行方法 】

●BCB_MessageHook.exe
●BCB_MessageHookDLL.dll
●API_SetWindowsHookEx1.exe
を全て同じフォルダにコピーします。

そうしたら、API_SetWindowsHookEx1.exe を起動した後、BCB_MessageHook.exe
を実行します。

BCB_MessageHook の Unit1.h のソースコード
#ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> //--------------------------------------------------------------------------- //呼び出すＤＬＬのファイル名 const char* const HOOK_DLL_NAME = "BCB_MessageHookDLL.dll"; //フックするウィンドウのクラス名 const char* const TARGET_CLASS_NAME = "Hook Target Window"; //フックするウィンドウのタイトルバーの文字 const char* const TARGET_TITLE_NAME = "フック対象ウィンドウ"; //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE 管理のコンポーネント TLabel *Label1; TLabel *Label2; TLabel *Label3; TLabel *Label4; TLabel *Label5; TLabel *Label6; TLabel *Label7; void __fastcall FormCreate( TObject* Sender ); void __fastcall FormCloseQuery( TObject* Sender, bool& CanClose ); private: // ユーザー宣言 HINSTANCE m_hInstDLL; //読み込んだＤＬＬのハンドル WORD m_messageId; //ＤＬＬから返ってくるメッセージ public: // ユーザー宣言 __fastcall TForm1( TComponent* Owner ); //C++ Builder ではメッセージを受信したときに最初に受け取る関数 //virtual で宣言されているのでオーバーライドして独自の処理を //行うことができる void __fastcall WndProc( Messages::TMessage &Message ); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif

BCB_MessageHook の Unit1.cpp のソースコード
#include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1( TComponent* Owner ) : TForm(Owner), m_hInstDLL(NULL), m_messageId(0) { } //--------------------------------------------------------------------------- // フォーム生成時の処理 //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate( TObject* Sender ) { try { //ＤＬＬ読み込み if( !m_hInstDLL ) m_hInstDLL = ::LoadLibrary( HOOK_DLL_NAME ); if( m_hInstDLL == NULL ) throw; //フックするウィンドウのハンドルを取得 HANDLE hwnd_target = ::FindWindow( TARGET_CLASS_NAME, TARGET_TITLE_NAME ); if( hwnd_target == NULL ) throw; //フックするウィンドウのスレッドＩＤを取得 DWORD thread_id = ::GetWindowThreadProcessId( hwnd_target, NULL ); if( thread_id == 0 ) throw; //フック開始 { typedef bool ( STARTHOOK )( HWND, DWORD ); STARTHOOK* pStartHook = (STARTHOOK*)::GetProcAddress( m_hInstDLL, "StartHook" ); if( pStartHook == NULL ) throw; if( !pStartHook( this->Handle, thread_id ) ) throw; } //ＤＬＬから送られてくるメッセージＩＤを取得 { typedef DWORD ( GETHOOKMESSAGEID )(); GETHOOKMESSAGEID* pGetHookMessageId = (GETHOOKMESSAGEID*)::GetProcAddress( m_hInstDLL, "GetHookMessageId" ); if( pGetHookMessageId == NULL ) throw; m_messageId = pGetHookMessageId(); if( m_messageId == 0 ) throw; } } catch(...) { if( m_hInstDLL ){ ::FreeLibrary( m_hInstDLL ); m_hInstDLL = NULL; } Application->Terminate(); } } //--------------------------------------------------------------------------- // フォーム終了時の処理 //--------------------------------------------------------------------------- void __fastcall TForm1::FormCloseQuery( TObject* Sender, bool& CanClose ) { if( !m_hInstDLL ) return; //フック解除 { typedef bool ( ENDHOOK )(); ENDHOOK* pEndHook = (ENDHOOK*)::GetProcAddress( m_hInstDLL, "EndHook" ); if( pEndHook != NULL ) pEndHook(); } //読み込んだＤＬＬを解放 ::FreeLibrary( m_hInstDLL ); m_hInstDLL = NULL; } //--------------------------------------------------------------------------- // ＤＬＬから送られてきたメッセージを処理 //--------------------------------------------------------------------------- void __fastcall TForm1::WndProc( Messages::TMessage& Message ) { //親クラスの WndProc() を処理 //このコードを実行しておかないと、他のイベントが実行されないので必要 TForm::WndProc( Message ); //ＤＬＬが読み込まれてなかったら終了 if( m_hInstDLL == NULL ) return; //送られてきたメッセージがフック処理用かどうか調べる if( Message.Msg != (Cardinal)m_messageId ) return; MSG msg; //フック処理用メッセージ取得 { typedef MSG ( GETHOOKMESSAGE )(); GETHOOKMESSAGE* pGetHookMessage = (GETHOOKMESSAGE*)::GetProcAddress( m_hInstDLL, "GetHookMessage" ); if( pGetHookMessage == NULL ) return; msg = pGetHookMessage(); } //メッセージ処理 switch( msg.message ) { case WM_KEYDOWN: Label4->Caption = AnsiString( msg.wParam ); break; case WM_MOUSEMOVE: Label5->Caption = "x:" + AnsiString( HIWORD( msg.lParam ) ); Label6->Caption = "y:" + AnsiString( LOWORD( msg.lParam ) ); break; case WM_LBUTTONDOWN: Label7->Caption = "左"; break; case WM_RBUTTONDOWN: Label7->Caption = "右"; break; case WM_MBUTTONDOWN: Label7->Caption = "中央"; break; } }

BCB_MessageHookDLL の Unit1.cpp のソースコード
#include <vcl.h> #include <windows.h> #pragma hdrstop //ファイルマッピングするための値を集めた構造体 struct ShareDataStruct { HWND hWnd; HHOOK hHook; WORD messageId; MSG message; }; //プロトタイプ宣言 extern "C" { __declspec( dllexport ) bool __stdcall StartHook( HWND, DWORD ); __declspec( dllexport ) bool __stdcall EndHook(); __declspec( dllexport ) WORD __stdcall GetHookMessageId(); __declspec( dllexport ) MSG __stdcall GetHookMessage(); } HANDLE GetFmoHandle(); ShareDataStruct* GetFmoData( HANDLE ); void DeleteFmoData(); //グローバル変数宣言 HINSTANCE g_hInstance = NULL; HANDLE g_hFMO = NULL; //ファイルマッピング時に指定する識別名 #define FILE_MAP_NAME "HookShareData" //フックしたメッセージを呼び出し元に送信する時のメッセージ名 #define HOOK_MESSAGE "Hook Message" //--------------------------------------------------------------------------- //ＤＬＬのメイン関数 #pragma argsused int WINAPI DllEntryPoint( HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved ) { g_hInstance = hinstDLL; return 1; } //--------------------------------------------------------------------------- //フックしたメッセージを処理 LRESULT CALLBACK __stdcall GetMsgProc( int nCode, WPARAM wParam, LPARAM lParam ) { ShareDataStruct* p_dataS = ::GetFmoData( GetFmoHandle() ); if( nCode == HC_ACTION ) { //フックしたメッセージを取得 MSG* p_msg = (MSG*)lParam; //ファイルマッピングオブジェクトの値を取得 if( p_dataS ) { //ファイルマッピングオブジェクトにメッセージの内容をコピー p_dataS->message = *p_msg; //キーとマウスメッセージのみ呼び出し元に送信 ::PostMessage( p_dataS->hWnd, p_dataS->messageId, 0, 0 ); } } HHOOK hhook = NULL; if( p_dataS ) hhook = p_dataS->hHook; ::DeleteFmoData(); return ::CallNextHookEx( hhook, nCode, wParam, lParam ); } //--------------------------------------------------------------------------- //ファイルマッピングオブジェクトに登録した値を取得 HANDLE GetFmoHandle() { return ::OpenFileMapping( FILE_MAP_ALL_ACCESS, false, FILE_MAP_NAME ); } ShareDataStruct* GetFmoData( HANDLE hFmo ) { return (ShareDataStruct*)::MapViewOfFile( hFmo, FILE_MAP_ALL_ACCESS, 0, 0, 0 ); } //--------------------------------------------------------------------------- //ファイルマッピングオブジェクトを解放 void DeleteFmoData() { HANDLE hfmo = ::GetFmoHandle(); ShareDataStruct* p_dataS = ::GetFmoData( hfmo ); if( p_dataS != NULL ) ::UnmapViewOfFile( p_dataS ); if( hfmo != NULL ) ::CloseHandle( hfmo ); } //--------------------------------------------------------------------------- //フック開始 extern "C" bool __stdcall StartHook( HWND hWnd, DWORD threadId ) { //ファイルマッピングオブジェクト作成 g_hFMO = ::CreateFileMapping( (HANDLE)0xFFffFFff, NULL, PAGE_READWRITE, 0, sizeof(ShareDataStruct), FILE_MAP_NAME ); if( g_hFMO == NULL ) return false; //ファイルマッピングオブジェクトのハンドルと登録したデータのポインタを取得 ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() ); if( p_dataS == NULL ) return false; //値を設定 p_dataS->hWnd = hWnd; p_dataS->hHook = ::SetWindowsHookEx( WH_GETMESSAGE, (HOOKPROC)::GetMsgProc, g_hInstance, threadId ); p_dataS->messageId = ::RegisterWindowMessage( HOOK_MESSAGE ); bool is_fail = true; if( p_dataS->hWnd != NULL && p_dataS->hHook != NULL && p_dataS->messageId != 0 ) is_fail = false; //ファイルマッピングオブジェクト解放 ::DeleteFmoData(); if( !is_fail ) return true; else return false; } //--------------------------------------------------------------------------- //フック終了 extern "C" bool __stdcall EndHook() { //ファイルマッピングオブジェクトの値を取得 ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() ); if( p_dataS == NULL ) return false; //フック解除 bool is_fail = false; if( !:UnhookWindowsHookEx( p_dataS->hHook ) ) is_fail = true; //ファイルマッピングオブジェクトの値を解放 ::DeleteFmoData(); //ファイルマッピングオブジェクトを削除 if( g_hFMO != NULL ){ ::CloseHandle( g_hFMO ); g_hFMO = NULL; } if( !is_fail ) return true; else return false; } //--------------------------------------------------------------------------- //フックしたメッセージを処理するためのメッセージＩＤを返す extern "C" WORD __stdcall GetHookMessageId() { //ファイルマッピングオブジェクトの値を取得 ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() ); if( p_dataS == NULL ) return false; WORD message_id = p_dataS->messageId; //ファイルマッピングオブジェクトの値を解放 ::DeleteFmoData(); return message_id; } //--------------------------------------------------------------------------- //フックしたメッセージの内容を返す extern "C" MSG __stdcall GetHookMessage() { MSG msg; ::memset( &msg, 0, sizeof(msg) ); ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() ); if( p_dataS == NULL ) return msg; msg = p_dataS->message; ::DeleteFmoData(); return msg; }

【 VC++ との違い 】


BCB のメッセージフックは VC とはやり方が異なります。
グローバルフックを行うのにＤＬＬを使う点は同じですが、共有メモリの扱い方が
異なります。

フックについての基本的なことは VC でのフック方法もご一読頂くとよいと思います。

BCB では #pragma data_seg が使えないのと、#pragma comment で共有メモリの
設定ができないので、共有メモリは別の方法で実装しなければいけません。

BCB では共有メモリを使うために、ファイルマッピングオブジェクトというものを
使います。
ファイルマッピングオブジェクトの実装には API 関数を使うので、VC でも
利用できます。

VC で紹介した方法では BCB との互換性はありませんが、こちらで紹介する方法は
少しソースをいじれば VC でも使用可能です。



【 ファイルマッピングオブジェクトの使い方 】


ファイルマッピングオブジェクトは次の流れで処理を行います。

１．CreateFileMapping() でファイルマッピングオブジェクトを作成
２．OpenFileMapping() でファイルマッピングオブジェクトを開く
３．MapViewOfFile() でファイルマッピングオブジェクトのポインタを取得
４．取得したポインタに値を設定したり取り出したりする
５．UnmapViewOfFile() でファイルマッピングオブジェクトのポインタを解放
６．CloseHandle() で OpenFileMapping() で取得したハンドルを閉じる
７．CloseHandle() で CreateFileMapping() で取得したハンドルを解放

ファイルマッピングオブジェクトに登録する値が複数ある場合は、適当な構造体を
作ってそこに値を入れてしまえば、その構造体ひとつだけで値をやり取りできます。

struct ShareDataStruct
{
    HWND      hWnd;       //フックしたメッセージを返すウィンドウのハンドル
    HHOOK     hHook;      //フックハンドル
    WORD      messageId;  //フックしたメッセージのＩＤ
    MSG       message;    //フックしたメッセージの値を保存
};

構造体を使わない場合は、ひとつの変数に対してファイルマッピングオブジェクトを
ひとつ作らないといけません。
それはさすがに面倒なので、やはり構造体で管理する方がよいです。

この構造体の値を CreateFileMapping() 関数を使ってファイルマッピング
オブジェクトに登録します。


HANDLE hFMObject = CreateFileMapping(
                       (HANDLE)0xFFFFFFFF,
                       NULL,
                       PAGE_READWRITE,
                       0,
                       sizeof(ShareDataStruct),
                       "ファイルマッピングオブジェクトの登録名"
                       );


これでファイルマッピングオブジェクトが作成できます。
CreateFileMapping() でファイルマッピングオブジェクトを作成したら
通常のファイルと同じように OpenFileMapping() でファイルを開きます。

ファイルマッピングオブジェクトの登録名 は OpenFileMapping() でも
使うので、ここに指定する値は #define するか、定数にしておくとよいです。


HANDLE hFmo = OpenFileMapping(
                  FILE_MAP_ALL_ACCESS,
                  false,
                  "ファイルマッピングオブジェクトの登録名"
                  );


CreateFileMapping() と OpenFileMapping() で取得できるハンドルは
別物なので、それぞれ別の変数に保存しておきます。

ファイルマッピングオブジェクトを開くと、値を取り出すことができるように
なります。
ファイルマッピングオブジェクトに登録した値を取り出すには MapViewOfFile()
を使います。
MapViewOfFile() に指定するのは OpenFileMapping() で取得したハンドルです。


ShareDataStruct* p = (ShareDataStruct*)::MapViewOfFile(
                         hFmo,
                         FILE_MAP_ALL_ACCESS,
                         0,
                         0,
                         0
                         );


値はポインタで返ってくるので、このポインタに値を指定すればファイルマッピング
オブジェクトに登録されている値も変わります。


MSG msg;
memset( &msg, 0, sizeof(msg) );

p->hWnd      = hWnd;
p->hHook     = SetWindowsHookEx(...);
p->messageId = 0;
p->message   = msg;


値の設定や取得が終わったら UnmapViewOfFile() でポインタを解放します。
その後、CloseHandle( hFmo ) とやって OpenFileMapping() で取得した
ハンドルを閉じて、CloseHandle( hFMObject ) とやって、登録したファイル
マッピングオブジェクトを削除します。



【 フック用メッセージを登録 】


VC++ のサンプルでは、フックしたメッセージをそのまま呼び出し元のウィンドウに
送信していましたが、それではさすがに呼び出し元ウィンドウのメッセージなのか
フックしたウィンドウのメッセージなのか区別できないので少々問題があります。
そこでメッセージをフックした場合はこちら側で定義したメッセージを送信することで
呼び出し元で自分のウィンドウのメッセージなのか、フックしたメッセージなのかを
区別できるようにします。

一番簡単なのは WM_USER + 100 などのような値を使うのですが、ＤＬＬの場合は
いろいろと問題があります。
簡単に説明すると、WM_USER + ? の値を使うと、メッセージＩＤの衝突が起きます。
そこで RegisterWindowMessage( "登録名" ) を使って取得したメッセージＩＤを
使います。


「ＤＬＬ側」

メッセージをフック
↓
フックしたメッセージの情報をファイルマッピングオブジェクトに保存
↓
RegisterWindowMessage() で取得したメッセージＩＤを呼び出し元に送信

↓

「呼び出し元」

受信したメッセージが RegisterWindowMessage() で取得したメッセージＩＤと
一致するか調べる ( DLL の GetHookMessageId() で取得 )
↓
一致したらファイルマッピングオブジェクトに保存したメッセージ情報を取得
( DLL の GetHookMessage() で取得 )
↓
そのメッセージごとに処理を行う


前回と違うのは、ＤＬＬから送信されるメッセージはフックしたメッセージ
そのものでなくて、「メッセージをフックしましたよ」という目印だけです。
ですから、どんなメッセージをフックしたのかは分かりません。
どんなメッセージをフックしたのかは、ＤＬＬの GetHookMessage() を使って
調べます。



【 DLL のソースを VC++ でも使うには 】


今回のＤＬＬのソースは

    #include<vcl.h>、#pragma hdrstop、#pragma argsused の行と
    各関数の __stdcall を削除
    int WINAPI DllEntryPoint を BOOL WINAPI DllMain に変更
    
以上のように変更すれば、VC++ でも使えます。
一応、呼び出し元のソースもＤＬＬに合わせて変更する必要があるので
VC 用に変更した呼び出し元とＤＬＬのソースをのせておきます。

呼び出し元のソース( プロジェクト名：MessageHook )
//これは VC++ 6.0 用のソースです

//インクルード
#include <windows.h>

//クラス名定義
#define CLASS_NAME    "API_SetWindowsHookEx Sample"  //クラス名
#define WINDOW_TITLE  "フック実行ウィンドウ"         //ウィンドウのタイトルバーに表示する文字
#define WINDOW_WIDTH  300                            //ウィンドウの横幅
#define WINDOW_HEIGHT 100                            //ウィンドウの高さ
#define DLL_NAME      "MessageHookDLL.dll"           //呼び出すＤＬＬの名前
#define TARGET_CLASS  "Hook Target Window"           //フックするウィンドウのクラス名
#define TARGET_TITLE  "フック対象ウィンドウ"         //フックするウィンドウのタイトルバーの文字

//プロトタイプ宣言
LRESULT CALLBACK WinProc( HWND, UINT, WPARAM, LPARAM );

//グローバル変数
HINSTANCE g_hInstDLL = NULL;

//メイン
int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd )
{
    {
        //ウィンドウクラス設定＆登録
        WNDCLASS wc;
        wc.cbClsExtra    = 0;
        wc.cbWndExtra    = 0;
        wc.hbrBackground = (HBRUSH)GetStockObject( WHITE_BRUSH );
        wc.hCursor       = LoadCursor( NULL, IDC_ARROW );
        wc.hIcon         = LoadIcon( NULL, IDI_WINLOGO );
        wc.hInstance     = hInstance;
        wc.lpfnWndProc   = WinProc;
        wc.lpszClassName = CLASS_NAME;
        wc.lpszMenuName  = NULL;
        wc.style         = 0;
        if( !RegisterClass( &wc ) ) return 1;
    }

    //ウィンドウ作成
    HWND hWnd = CreateWindow( CLASS_NAME, WINDOW_TITLE, WS_CAPTION | WS_SYSMENU,
                    CW_USEDEFAULT, CW_USEDEFAULT, WINDOW_WIDTH, WINDOW_HEIGHT,
                    NULL, NULL, hInstance, NULL );
    if( hWnd == NULL ) return 1;

    //ウィンドウ表示
    ShowWindow( hWnd, SW_NORMAL );
    UpdateWindow( hWnd );

    //メッセージをフックするウィンドウを探す
    HWND hwnd_target = FindWindow( TARGET_CLASS, TARGET_TITLE );
    if( hwnd_target == NULL ) return 1;

    //メッセージをフックするウィンドウのスレッドＩＤを取得
    DWORD thread_id = GetWindowThreadProcessId( hwnd_target, NULL );

    //ＤＬＬ呼び出し
    g_hInstDLL = LoadLibrary( DLL_NAME );
    if( g_hInstDLL == NULL ) return 1;

    //ＤＬＬの StartHook() 関数を呼ぶ
    {
        typedef bool ( STARTHOOK )( HWND, DWORD );
        STARTHOOK* pStartHook = (STARTHOOK*)GetProcAddress( g_hInstDLL, "StartHook" );
        if( pStartHook == NULL ){ FreeLibrary( g_hInstDLL ); return 1; }
        if( !pStartHook( hWnd, thread_id ) ){ FreeLibrary( g_hInstDLL ); return 1; }
    }

    //メッセージループ
    while( true )
    {
        MSG msg;
        if( GetMessage( &msg, NULL, 0, 0 ) <= 0 ) break;
        TranslateMessage( &msg );
        DispatchMessage( &msg );
    }

    //ＤＬＬの EndHook() 関数を呼ぶ
    {
        typedef bool ( ENDHOOK )();
        ENDHOOK* pEndHook = (ENDHOOK*)GetProcAddress( g_hInstDLL, "EndHook" );
        if( pEndHook != NULL ) pEndHook();
    }

    //呼び出したＤＬＬを解放
    FreeLibrary( g_hInstDLL );

    return 0;
}

//メッセージの対応
LRESULT CALLBACK WinProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam )
{
    static short key_code = 0;
    static POINT mouse_pos = { 0, 0 };
    static int   click = 0;    // 0 = 左クリック 1 = 右クリック 2 = 真中クリック

    //フック用のメッセージＩＤを取得
    WORD message_id = 0;
    {
        typedef WORD ( GETHOOKMESSAGEID )();
        GETHOOKMESSAGEID* pGetHookMessageId = (GETHOOKMESSAGEID*)GetProcAddress( g_hInstDLL, "GetHookMessageId" );
        if( pGetHookMessageId ) message_id = pGetHookMessageId();
    }

    //フック用のメッセージが送信されたか調べる
    if( uMsg == message_id )
    {
        //送信されていたら、ＤＬＬがフックしたメッセージを取得
        typedef MSG ( GETHOOKMESSAGE )();
        GETHOOKMESSAGE* pGetHookMessage = (GETHOOKMESSAGE*)GetProcAddress( g_hInstDLL, "GetHookMessage" );
        
        if( pGetHookMessage )
        {
            //フックしたメッセージごとに処理を行う
            
            MSG msg = pGetHookMessage();

            switch( msg.message )
            {
            case WM_LBUTTONDOWN:

                click = 0;
                break;

            case WM_RBUTTONDOWN:

                click = 1;
                break;

            case WM_MBUTTONDOWN:

                click = 2;
                break;

            case WM_MOUSEMOVE:

                mouse_pos.x = LOWORD( msg.lParam );
                mouse_pos.y = HIWORD( msg.lParam );
                break;

            case WM_KEYDOWN:

                key_code = msg.wParam;
                break;
            }

            //ウィンドウを更新(WM_PAINTを呼び出す)
            InvalidateRect( hWnd, NULL, TRUE );
        }
    }

    //このウィンドウのメッセージの処理
    
    switch( uMsg )
    {
    case WM_DESTROY:

        PostQuitMessage(0);
        break;

    case WM_PAINT:
        {
            PAINTSTRUCT ps;
            BeginPaint( hWnd, &ps );

            BitBlt( ps.hdc, 0, 0, WINDOW_WIDTH, WINDOW_HEIGHT, NULL, 0, 0, WHITENESS );

            SetBkMode( ps.hdc, TRANSPARENT );
            SetTextColor( ps.hdc, RGB(0,0,0) );

            char text[256];

            wsprintf( text, "押されたキー：%d", key_code );
            TextOut( ps.hdc, 10, 10, text, lstrlen(text) );

            switch( click )
            {
            case 0:  wsprintf( text, "押されたマウスボタン：左" );   break;
            case 1:  wsprintf( text, "押されたマウスボタン：右" );   break;
            case 2:  wsprintf( text, "押されたマウスボタン：中央" ); break;
            default: memset( text, '\0', sizeof(text) ); break;
            }
            TextOut( ps.hdc, 10, 30, text, lstrlen(text) );

            wsprintf( text, "マウスカーソルの位置 x:%03d y:%03d", mouse_pos.x, mouse_pos.y );
            TextOut( ps.hdc, 10, 50, text, lstrlen(text) );

            EndPaint( hWnd, &ps );
            break;
        }
    }

    return DefWindowProc( hWnd, uMsg, wParam, lParam );
}


DLL のソース( プロジェクト名：MessageHookDLL )
//これは VC++ 6.0 用のソースです

#include <windows.h>

//ファイルマッピングするための値を集めた構造体
struct ShareDataStruct
{
    HWND      hWnd;
    HHOOK     hHook;
    WORD      messageId;
    MSG       message;
};

//プロトタイプ宣言

extern "C"
{
    __declspec( dllexport ) bool StartHook( HWND, DWORD );
    __declspec( dllexport ) bool EndHook();
    __declspec( dllexport ) WORD GetHookMessageId();
    __declspec( dllexport ) MSG  GetHookMessage();
}

HANDLE           GetFmoHandle();
ShareDataStruct* GetFmoData( HANDLE );
void             DeleteFmoData();

//グローバル変数宣言
HINSTANCE g_hInstance = NULL;
HANDLE    g_hFMO      = NULL;

//ファイルマッピング時に指定する識別名
#define FILE_MAP_NAME "HookShareData"

//フックしたメッセージを呼び出し元に送信する時のメッセージ名
#define HOOK_MESSAGE "Hook Message"

//---------------------------------------------------------------------------

//ＤＬＬのメイン関数
BOOL WINAPI DllMain( HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved )
{
    g_hInstance = hinstDLL;
    return TRUE;
}

//---------------------------------------------------------------------------

//フックしたメッセージを処理
LRESULT CALLBACK GetMsgProc( int nCode, WPARAM wParam, LPARAM lParam )
{
    ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() );

    if( nCode == HC_ACTION )
    {
        //フックしたメッセージを取得
        MSG* p_msg = (MSG*)lParam;

        //ファイルマッピングオブジェクトの値を取得
        if( p_dataS != NULL )
        {
            //ファイルマッピングオブジェクトにメッセージの内容をコピー
            p_dataS->message = *p_msg;
            
            //キーとマウスメッセージのみ呼び出し元に送信
            ::PostMessage( p_dataS->hWnd, p_dataS->messageId, 0, 0 );
        }
    }

    HHOOK hhook = NULL;
    if( p_dataS ) hhook = p_dataS->hHook;
    
    ::DeleteFmoData();
    
    return ::CallNextHookEx( hhook, nCode, wParam, lParam );
}

//---------------------------------------------------------------------------

//ファイルマッピングオブジェクトに登録した値を取得
HANDLE GetFmoHandle()
{ 
    return ::OpenFileMapping( FILE_MAP_ALL_ACCESS, false, FILE_MAP_NAME );
}

ShareDataStruct* GetFmoData( HANDLE hFmo )
{
    return (ShareDataStruct*)::MapViewOfFile( hFmo, FILE_MAP_ALL_ACCESS, 0, 0, 0 );
}

//---------------------------------------------------------------------------

//ファイルマッピングオブジェクトを解放
void DeleteFmoData()
{
    HANDLE hfmo = ::GetFmoHandle();
    ShareDataStruct* p_dataS = ::GetFmoData( hfmo );
    
    if( p_dataS != NULL ) ::UnmapViewOfFile( p_dataS );
    if( hfmo    != NULL ) ::CloseHandle( hfmo );
}

//---------------------------------------------------------------------------

//フック開始
extern "C" bool StartHook( HWND hWnd, DWORD threadId )
{
    //ファイルマッピングオブジェクト作成
    g_hFMO = ::CreateFileMapping( (HANDLE)0xFFffFFff, NULL, PAGE_READWRITE, 0, sizeof(ShareDataStruct), FILE_MAP_NAME );
    if( g_hFMO == NULL ) return false;
    
    //ファイルマッピングオブジェクトのハンドルと登録したデータのポインタを取得
    ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() );
    if( p_dataS == NULL ) return false;
    
    //値を設定
    p_dataS->hWnd      = hWnd;
    p_dataS->hHook     = ::SetWindowsHookEx( WH_GETMESSAGE, (HOOKPROC)::GetMsgProc, g_hInstance, threadId );
    p_dataS->messageId = ::RegisterWindowMessage( HOOK_MESSAGE );

    bool is_fail = true;
    if(
        p_dataS->hWnd      != NULL &&
        p_dataS->hHook     != NULL &&
        p_dataS->messageId != 0
    )
        is_fail = false;
    
    //ファイルマッピングオブジェクト解放
    ::DeleteFmoData();

    if( !is_fail ) return true;
    else return false;
}

//---------------------------------------------------------------------------

//フック終了
extern "C" bool EndHook()
{
    //ファイルマッピングオブジェクトの値を取得
    ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() );
    if( p_dataS == NULL ) return false;
    
    //フック解除
    bool is_fail = false;
    if( !::UnhookWindowsHookEx( p_dataS->hHook ) ) is_fail = true;

    //ファイルマッピングオブジェクトの値を解放
    ::DeleteFmoData();

    //ファイルマッピングオブジェクトを削除
    if( g_hFMO != NULL ){ ::CloseHandle( g_hFMO ); g_hFMO = NULL; }
    
    if( !is_fail ) return true;
    else return false;    
}

//---------------------------------------------------------------------------

//フックしたメッセージを処理するためのメッセージＩＤを返す
extern "C" WORD GetHookMessageId()
{
    //ファイルマッピングオブジェクトの値を取得
    ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() );
    if( p_dataS == NULL ) return false;

    WORD message_id = p_dataS->messageId;

    //ファイルマッピングオブジェクトの値を解放
    ::DeleteFmoData();
    
    return message_id;    
}

//---------------------------------------------------------------------------

//フックしたメッセージの内容を返す
extern "C" MSG GetHookMessage()
{
    MSG msg;
    ::memset( &msg, 0, sizeof(msg) );

    ShareDataStruct* p_dataS = ::GetFmoData( ::GetFmoHandle() );
    if( p_dataS == NULL ) return msg;

    msg = p_dataS->message;

    ::DeleteFmoData();

    return msg;
}




【 TFormで受信したメッセージを処理するには 】


WndProc() メソッドをオーバーライドします。
BCB のフォーム(TForm)でメッセージを受信すると、最初にこの WndProc()
メソッドが呼び出されます。
この関数は virtual 宣言されているので、オーバーライドして内容を
変更することができます。

このメソッドの中で、ＤＬＬから「メッセージをフックしたよ」という
意味のメッセージを受信したときの処理を書きます。

サンプルを見れば実装方法はお分かりいただけると思います。
注意する点は、一番最初に親クラスの WndProc() を実行するという点です。
Form1 の FormCreate イベントなんかの処理は、親クラスの WndProc() で
処理されるので、最初に TForm::WndProc( Message ); を呼び出して
親クラスの処理を実行しておかないと、Form1 で設定したイベントが全く
実行されなくなってしまいます。
Form1 は TForm を継承しているので、TForm に定義されているイベントは
Form1 の WndProc() ではなく、TForm の WndProc() で処理されます。

| home |