[Kompuklumba]

Загружаю ловушку при запуске программы, отрабатывает она нормально, закрываю приложение и по событию OnClose пытаюсь отключить ловушку. Получается что вешается вся ось... где касяк понять не могу, вот текст библиотеки.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

library DynHelp;   uses   ShareMem,   SysUtils,   Classes,   StdCtrls,   AppEvnts,   ComCtrls,   Forms,   Windows,   Controls,   Messages;   var   CMemo: TCustomMemo;   HandleHook: HHOOK = 0; {$R *.res}     //процедура на ловушку   procedure Hook(Code: integer; wParam: integer; lParam: integer); stdcall;   begin     CallNextHookEx(HandleHook, Code, wParam, lParam);     if Code = HC_ACTION then       if TMSg(Pointer(lParam)^).message = WM_LBUTTONDOWN then         if (TMSg(Pointer(lParam)^).wParam and MK_CONTROL) = MK_CONTROL then         begin                                         MessageBox(TMSg(Pointer(lParam)^).hwnd, PChar(IntToStr(lParam)),               '!!!', mb_iconhand);         end;     end;     procedure DynHelpConnection(CustomMemo: TCustomMemo; ThreadID: Cardinal);       stdcall; export;   begin     if (CustomMemo.ClassName = 'TMemo') then     begin       CMemo := CustomMemo;       HandleHook := SetWindowsHookEx(WH_GETMESSAGE, @Hook, HInstance, 0);     end;   end;     procedure DynHelpDisconnection; stdcall; export;   begin     UnhookWindowsHookEx(HandleHook);     HandleHook := 0;     CMemo := nil;   end;   exports   DynHelpConnection,   DynHelpDisconnection;   begin end.

[Kompuklumba]

Можно закрывать тему, решение найдено. Следовало устанавливать ловушку следующим способом

HandleHook := SetWindowsHookEx(WH_GETMESSAGE, @Hook, 0, GetCurrentThreadId);

[NumLock]

да ну?

dwThreadId [in]

The identifier of the thread with which the hook procedure is to be associated. If this parameter is zero, the hook procedure is associated with all existing threads running in the same desktop as the calling thread.

http://msdn.microsoft.com/en-us/libr...90(VS.85).aspx
зачем ловушка только для твоего процесса?

[Kompuklumba]

да ну?

Ну да!
А этот help я читал.

зачем ловушка только для твоего процесса?

Это не полный вариант. Тут система подсказок будет отрабатывать (не хинт)