XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenstertitel von der Mausposition holen
Def @Getcursorpos(1) !USER32,GetCursorPos
Def @Childwindowfrompoint(3) !USER32,ChildWindowFromPoint
Def @Screentoclient(2) !USER32,ScreenToClient
Windowstyle 31
Windowtitle Fenstertitel von der Mausposition holen
Window 50,75-600,350
Declare Pos#,Handle&
@Createbutton(%Hwnd,Test 1,100,100,100,30)
@Createtext(%Hwnd,Test 2,100,150,100,30)

While 0=0

    Sleep 10
    Dim Pos#,8
    Getcursorpos(Pos#)
    Drawtext 0,0,Global X=+@Str$(@Long(Pos#,0))+@Space$(100)
    Drawtext 0,20,Global Y=+@Str$(@Long(Pos#,4))+@Space$(100)
    @Screentoclient(%Hwnd,Pos#)
    Let Handle&=@Childwindowfrompoint(%Hwnd,@Long(Pos#,0),@Long(Pos#,4))
    Drawtext 0,40,Handle des Fensters an diesem Punkt=+@Str$(Handle&)+@Space$(100)
    Drawtext 0,60,Fenstertitel=+@Gettext$(Handle&)+@Space$(100)
    Dispose Pos#

Wend