XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Controls: Klassennamen von der Mausposition holen
Def @Getcursorpos(1) !USER32,GetCursorPos
Def @Windowfrompoint(2) !USER32,WindowFromPoint
Def @Screentoclient(2) !USER32,ScreenToClient
Def @Getclassname(3) !USER32,GetClassNameA
Windowstyle 31
Windowtitle Klassennamen von der Mausposition holen
Window 50,75-600,350
Declare Pos#,Handle&,Classname#
@Createbutton(%Hwnd,Test 1,100,100,100,30)
@Createlistbox(%Hwnd,,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)
    Let Handle&=@Windowfrompoint(@Long(Pos#,0),@Long(Pos#,4))
    Dim Classname#,256
    @Getclassname(Handle&,Classname#,255)
    Drawtext 0,60,Klassenname des Fensters an diesem Punkt=+@String$(Classname#,0)+@Space$(255)
    Dispose Classname#
    Drawtext 0,40,Fenstertitel=+@Gettext$(Handle&)+@Space$(100)
    Dispose Pos#

Wend