XProfan

Def WFP(1) !"User32", "WindowFromPoint"

Proc WinFromPoint

    Parameters x%, y%
    Declare points#
    Dim points#, 4
    Long points#, 0 = x%
    Long points#, 2 = y%
    return WFP(points#)

EndProc

Cls
print WinFromPoint(10, 10)
waitinput

Def WinFromPoint(2) !"User32", "WindowFromPoint"
Cls
print Add$(WinFromPoint(10,10)," WinFromPoint (10,10)")
print Add$(Str$(%HWnd)," %HWnd")
print
print Add$(WinFromPoint(780,10)," WinFromPoint (780,10)")
waitinput

Def WFP(2) !"User32", "WindowFromPoint"
print WFP(10,10)