Глобальный хук на мышь не глобальный О_о

[JTG]

Простейшая библиотечка

library hook;

uses
    Windows,  Messages;

Const 
    WM_READY = WM_USER + 13;

var
    MyHook: HHook = 0;
    Wnd: Hwnd = 0;
    ParentWnd: HWND;

function HookProc(code, wParam, lParam : integer) : LResult; stdcall;
begin
  if Code < 0 then
  begin
    result := CallNextHookEx(MyHook, Code, wParam, lParam);
    exit;
  end;

  If wParam=WM_LBUTTONDBLCLK then
  begin
      PostMessage(ParentWnd, WM_READY, Wnd, 0);
  end;

  Result:=CallNextHookEx(MyHook,Code,wParam,lParam);
end;

procedure Run(State:Boolean; parent:HWND) export; stdcall;
begin
    if State=true then
      MyHook := SetWindowsHookEx(WH_MOUSE,@HookProc,HInstance,0)
    else
      begin
        UnhookWindowsHookEx(MyHook) ;
        MyHook := 0;
      end;
  ParentWnd:=parent;
end;

exports Run;

begin
end.

Задолбался уже Хук получается не глобальный Я чего-то не заметил?

---
И через WH_GETMESSAGE работает только в моём приложении Ничё не понимаю

function HookProc(code, wParam, lParam : integer) : LResult; stdcall;
Begin
   CallNextHookEx(MyHook, code, wParam, lparam);
   if code=HC_ACTION then
      begin
         if TMsg(pointer(lParam)^).message=WM_LBUTTONDBLCLK then 
         PostMessage(ParentWnd, WM_READY, Wnd, 0);
      end;
end;
...
MyHook := SetWindowsHookEx(WH_GETMESSAGE,@HookProc,HInstance,0)

И перезагружался уже... Такое может быть, если в системе криво установлена чья-та другая ловушка?

[B_N]

Странно... Это GetCurrentProcessId так говорит?

[JTG]

GetCurrentProcessId? Не знаю, а причём тут это?

Сделал уже на любимом FASM ))) И как маньяк минимизации уложился в полтора килобайта вместе с релоками и отдельной секцией .BSS с аттрибутом shareable, чтоб уж точно по всем правилам

[B_N]

Сообщение от JTG

GetCurrentProcessId? Не знаю, а причём тут это?

Ну на всякий случай... Чтобы убедиться, что "работает только в моём приложении"...
http://www.programmersforum.ru/showthread.php?t=16709

Кстати, особого криминала и я не заметил, разве что не понял, почему ParentWnd приходит параметром...

Сообщение от JTG

Сделал уже на любимом FASM ))) И как маньяк минимизации уложился в полтора килобайта вместе с релоками и отдельной секцией .BSS с аттрибутом shareable, чтоб уж точно по всем правилам

Ну это же доолгооо. ) И потом, всё равно смэпает в 64k минимум.