Interprocess communication на примере keyboard hook (статья)

Code:

library HookDLL;

uses Windows, Exchange;

function KeyboardProc(Code: Integer; wParam: WPARAM;

lParam: LPARAM): Integer; stdcall;

begin

if Code < 0 then

   Result := CallNextHookEx(CommonArea^.HookHandle, Code, wParam,

     lParam)

else

begin

   PostMessage(CommonArea^.FormHandle, Exchange.WMKeyHook, wParam,

     lParam );

   Result := CallNextHookEx(CommonArea^.HookHandle, Code, wParam,

     lParam );

end;

end;

function SetHook(Activate : BOOL): BOOL; stdcall; export;

begin

Result := FALSE;

if Activate then

begin

   CommonArea^.HookHandle := SetWindowsHookEx(WH_KEYBOARD,

     @KeyboardProc, hInstance, 0);

   Result := (CommonArea^.HookHandle <> 0);

end

else

begin

   if CommonArea^.HookHandle <> 0 then

   begin

     Result := UnhookWindowsHookEx(CommonArea^.HookHandle);

     if Result then

       CommonArea^.HookHandle := 0;

   end;

end;

end;

exports

SetHook;

begin

end.