XProfan

Var Ende& = 0
CLS
SubClass %HWnd, 1

Whilenot Ende&

    WaitInput

EndWhile

End

Subclassproc

    If SubClassMessage(%hWnd, $200)~WM_MOUSEMOVE

        Locate 0,0
        Print %Mousex,%Mousey

    Endif

EndProc

DEF &WM_MOUSEMOVE 512
Declare Ende&,Point#
Cls
Usermessages &WM_MOUSEMOVE

Whilenot Ende&

    WaitInput

    If %Umessage = &WM_MOUSEMOVE

        Dim Point#,8
        External("User32.dll","GetCursorPos",Point#)
        External("User32.dll","MapWindowPoints",0,%hwnd,Point#,1)
        Locate 0,0
        Print Long(Point#,0),Long(Point#,4)
        Dispose Point#

    Endif

Endwhile

DEF &WM_MOUSEMOVE 512
DEF HiWord(1) @&(1) >> 16 & $FFFF
DEF LoWord(1) @&(1) & $FFFF
Declare Ende&
Cls
Usermessages &WM_MOUSEMOVE

Whilenot Ende&

    WaitInput

    If %Umessage = &WM_MOUSEMOVE

        Locate 0,0
        Print "                                   "
        Locate 0,0
        Print LoWord(&ulParam),HiWord(&ulParam)

    Endif

Endwhile

cls

while 1

    getMessage

    if %message=512 wm_mouseMove

        locate 1,1
        print %mouseX,%mouseY,"     "

    endif

wend

end