XProfan

Español

Descripción:

GetClassName ermittelt el Namen el Fensterklasse la ventana con el angegebenen Handle.

Deklaration:

Def @GetClassName(3) !USER32,GetClassNameA

Parámetro:

1.Parámetro: Handle la ventana dessen Klassenname ermittelt voluntad se.

2.Parámetro: Ausreichend große Bereichsvariable, el el Klassennamen la ventana aufnimmt.

3.Parámetro: Maximale Anzahl el Buchstaben des Klassennamens.

Rückgabewert:

En Erfolg el número el Buchstaben en el Klassennamen. En una Fehler 0.

Beispiele:

Kompilieren Marca Separación

DEF @GetCursorPos(1) !"USER32","GetCursorPos"
DEF @WindowFromPoint(2) !"USER32","WindowFromPoint"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
Def @GetClassName(3) !"USER32","GetClassNameA"
Windowstyle 31
Windowtitle "Klassennamen de el Mausposition holen"
Ventana 50,75-600,350
Declarar pos#,Handle&,Classname#
@CREATEBUTTON(%HWND,"Test 1",100,100,100,30)
@createListbox(%HWND,"",100,150,100,30)

Mientras que 0=0

    Sleep 10
    DIM POS#,8
    @GetCursorPos(pos#)
    Drawtext 0,0,"Global X="+@STR$(@Largo(Pos#,0))+@Espacio$(100)
    Drawtext 0,20,"Global Y="+@STR$(@Largo(Pos#,4))+@Espacio$(100)
    Let Handle&=@WindowFromPoint(@Largo(Pos#,0),@Largo(Pos#,4))
    Dim Classname#,256
    @GetClassname(Handle&,Classname#,255)
    Drawtext 0,60,"Klassenname la ventana a diesem Punkt="+@String$(Classname#,0)+@space$(255)
    Disponer Classname#
    Drawtext 0,40,"Fenstertitel="+@GetText $(Handle&)+@Espacio$(100)
    Disponer Pos#

Wend