XProfan

English

Description:

GetClassName determined whom names the Fensterklasse the Fensters with the angegebenen lever.

Deklaration:

Def @GetClassName(3) !USER32,GetClassNameA

Parameter:

1.Parameter: lever the Fensters which Klassenname determined go should.

2.Parameter: enough large Memory-Variable, The whom Thread-speed? the Fensters aufnimmt.

3.Parameter: Maximale Number of letters the Klassennamens.

Return Value:

with success The Number of letters in the Thread-speed?. with one Error 0.

Examples:

Compile Mark Separation

DEF @GetCursorPos(1) !"USER32","GetCursorPos"
DEF @WindowFromPoint(2) !"USER32","WindowFromPoint"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
Def @GetClassName(3) !"USER32","GetClassNameA"
Windowstyle 31
Windowtitle "Klassennamen from the 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 the Fensters on this Punkt="+@String $(Classname#,0)+@space$(255)
    Dispose Classname#
    DrawText 0,40,"Fenstertitel="+@GetText$(Handle&)+@Space$(100)
    Dispose Pos#

Wend