AutoHotkey Community

~MButton::
   MouseGetPos, x, y, hWnd
return

~MButton Up::
   if(IsOverTitleBar(x, y, hWnd))
   {
      WinGetClass, classname , ahk_id %hWnd%
      if(hWnd != "" and classname != "Shell_TrayWnd")
      {
         WinClose , ahk_id %hWnd%
      }
   }
   x =
   y =
   hWnd =
return

IsOverTitleBar(x, y, hWnd)
{
   SendMessage, 0x84,, (x & 0xFFFF) | (y & 0xFFFF) << 16,, ahk_id %hWnd%
   if ErrorLevel in 2,3,8,9,20,21
      return true
   else
      return false
}