//FormShow
Application->MsgProc;    //副程式
MsgProc(tagMSG &Msg, bool &Handled)
{
  if(Msg.message==WM_LBUTTONDOWN)
  {
    //做想做的事
  }
}

HHOOK hMouseHook;    LRESULT CALLBACK MouseHook(int iCode,WPARAM wParam,LPARAM lParam)
{
   if(iCode>=0)
   {
      if(iCode==HC_ACTION)
      {
         TEventMsg msg;
         msg = *((TEventMsg*)(lParam));             if(msg.message==WM_LBUTTONDOWN)
         {
             //...........
         }
      }
      return 0;
   }
   return CallNextHookEx(hMouseHook,iCode,wParam,lParam);
}    //FormShow
if(hMouseHook==NULL)
   hMouseHook=SetWindowsHookEx(WH_JOURNALRECORD,(HOOKPROC)MouseHook,HInstance,0);