vitorg
Профи
(636)
17 лет назад
типа этого
procedure hook(switch: Boolean; acd_tid: DWORD); export; stdcall;
begin
if (switch) then SysHook:=SetWindowsHookEx(WH_CALLWNDPROC,@CallWndProc,HInstance,acd_tid)
else
begin
UnhookWindowsHookEx(SysHook);
SysHook:=0;
end;
end;
а там уже в callback'е выцепляй сообщения которые тебе нужны
но делать это надо отдельной длл'кой.