훅 인스턴스의 생성과 해제

var

  ThisHook : hHook;

.....

  ThisHook := SetWindowsHookEx (WH_CALLWNDPROC,
HookProc, HInstance, GetCurrentThreadID);

function HookProc (nCode: Integer; wParam, lParam:
Longint): Longint; stdcall;

begin

//.... my code goes here

  Result := CallNextHookEx (ThisHook, nCode,
wParam, lParam);

//.... or goes in here

end;

동일한 문제가 클래스의 내부에 '윈도우 메세지 프로시져'를 작성하기를 원할 때 발생한다. 그러나, 볼랜드사는 클래스내의 '메소드'가 '윈도우 메세지 프로시져' 가 될 수 있도록 MakeObjectInstance(그리고 거기에 대응하는 FreeObjectInstace)를 제공해 주었다. 그래서, 본인은 동일한 기법으로 훅 함수로 메소드를 사용할 수 있지 않을까 하고 짐작했다. 그 결과가 되는 코드는 MakeObjectInstance를 위한 볼랜드가 제공했던 코드를 사용했지만 훅에 적절하도록 손을 봤다. 볼랜드의 원래 코드(Forms.Pas내에 있는 코드)에 약간의 변경을 가한 코드를 다음과 같이 제시한다.

unit

  HookInst;



interface



uses

  Windows;



type

  THookCall = packed record

    Code   : integer;

    WParam : WPARAM;

    LParam : LPARAM;

    Result : LResult

  end;



  THookMethod = procedure (var HookCall: THookCall)
of object;



function  MakeHookInstance (Method: THookMethod):
pointer;

procedure FreeHookInstance (ObjectInstance: pointer);



implementation



const

  InstanceCount = 313;  // set so that
sizeof (TInstanceBlock) < PageSize



type

  PObjectInstance = ^TObjectInstance;

  TObjectInstance = packed record

    Code: Byte;

    Offset: Integer;

    case Integer of

      0: (Next: PObjectInstance);

      1: (Method: THookMethod);

  end;



type

  PInstanceBlock = ^TInstanceBlock;

  TInstanceBlock = packed record

    Next: PInstanceBlock;

    Code: array[1..2] of Byte;

    WndProcPtr: Pointer;

    Instances: array[0..InstanceCount]
of TObjectInstance;

  end;



var

  InstBlockList : PInstanceBlock  = nil;

  InstFreeList  : PObjectInstance = nil;



function StdHookProc (Code, WParam: WPARAM; LParam:
LPARAM): LResult; stdcall; assembler;

asm

        XOR    
EAX,EAX

        PUSH   
EAX

        PUSH   
LParam

        PUSH   
WParam

        PUSH   
Code

        MOV    
EDX,ESP

        MOV    
EAX,[ECX].Longint[4]

        CALL   
[ECX].Pointer

        ADD    
ESP,12

        POP    
EAX

end;



{ Allocate a hook method instance }



function CalcJmpOffset(Src, Dest: Pointer): Longint;

begin

  Result := Longint(Dest) - (Longint(Src) +
5);

end;



function MakeHookInstance(Method: THookMethod): Pointer;

const

  BlockCode: array [1..2] of Byte = ($59, $E9);

  PageSize = 4096;

var

  Block: PInstanceBlock;

  Instance: PObjectInstance;

begin

  if InstFreeList = nil then

  begin

    Block := VirtualAlloc (nil, PageSize,
MEM_COMMIT, PAGE_EXECUTE_READWRITE);

    Block^.Next := InstBlockList;

    Move(BlockCode, Block^.Code, SizeOf(BlockCode));

    Block^.WndProcPtr := Pointer(CalcJmpOffset(@Block^.Code[2],
@StdHookProc));

    Instance := @Block^.Instances;

    repeat

      Instance^.Code :=
$E8;

      Instance^.Offset :=
CalcJmpOffset(Instance, @Block^.Code);

      Instance^.Next :=
InstFreeList;

      InstFreeList := Instance;

      Inc(Longint(Instance),
SizeOf(TObjectInstance));

    until Longint(Instance) - Longint(Block)
>= SizeOf(TInstanceBlock);

    InstBlockList := Block

  end;

  Result := InstFreeList;

  Instance := InstFreeList;

  InstFreeList := Instance^.Next;

  Instance^.Method := Method

end;



{ Free a hook method instance }



procedure FreeHookInstance (ObjectInstance: Pointer);

begin

  if ObjectInstance <> nil then

  begin

    PObjectInstance(ObjectInstance)^.Next
:= InstFreeList;

    InstFreeList := ObjectInstance

  end

end;



end.

어떻게 사용할 것인가?

여러분이 클래스내에서 WH_CALLWNDPROC를 사용하기를 원한다고 하자. 여러분의 훅 함수, 포인터 변수(메소드에 대한 포인터가 될 것임), 그리고 훅 핸들(훅 이벤트를 올바르게 연결할 수 있기 위해서임)을 선언하라.

type

  TMyClass = class (TWhat)

....

  private

    ThisHook : hHook;

    HookProc : pointer;

....

   function MyHookProc (var HookCall: THookCall);

....

  end;

  HookProc := MakeHookInstance (MyHookProc);

  ThisHook := SetWindowsHookEx (WH_CALLWNDPROC, HookProc, HInstance, GetCurrentThreadID);

function TMyClass.MyHookProc (var HookCall: THookCall);

begin

....

  with HookCall do

    Result := CallNextHookEx (ThisHook,
Code, wParam, lParam);

....

end;

  UnhookWindowsHookEx (ThisHook);

  FreeHookInstance (HookProc);

그래서, 결론을 내리면...

전역 변수는 없다! 독립적으로 떨어져 나와 있는 훅 함수도 없다! 훅 함수는 쉽게 클래스 메소드를 참조할 수 있다.