Перехват события нажатия мышки в любой области экрана

[Фенрир]

Получилось все таки.
Факт о неработающей проге не давал мне заснуть и почему то пришла мысль что нельзя передавать LPMOUSEHOOKSTRUCT окну приложения.
Так работает:

    void __fastcall TForm1 :: WndProc (TMessage& ms) {

   if (ms.Msg==UM_MOUSE) {
         char str[100];
          GetWindowText((HWND)ms.WParam, (LPTSTR)str, sizeof(str));
          Memo1->Lines->Add(str);
         Memo1->Lines->Add(ms.LParamLo);
          Memo1->Lines->Add(ms.LParamHi);
   }
  TForm:: WndProc (ms);
}

В длл:

             /*Процедура обработки сообщений мыши*/
  LRESULT CALLBACK MouseProc (int nCode, WPARAM wParam, LPARAM lParam)
{
      HWND AppWnd;

     if (nCode < 0)  return CallNextHookEx(HookData->hHook, nCode, wParam, lParam);

   if (wParam==WM_RBUTTONDOWN)  {
       AppWnd= GetForegroundWindow();
     LPMOUSEHOOKSTRUCT ms = (LPMOUSEHOOKSTRUCT)lParam;
     DWORD coord = (ms->pt.x) | (ms->pt.y<<16);
      /*Посылаем хэндлу окна сообщение с параметрами мыши*/
     PostMessage(HookData->hWnd,HookData->message,(WPARAM)AppWnd,(LPARAM)coord);
   
    }

              /*обработка следущего хука*/
    return CallNextHookEx(HookData->hHook, nCode, wParam, lParam);
}

Почему не работало никто не подскажет?