[Kompuklumba]

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

Код:

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 я читал.

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

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