XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Hauptfenster: Handles aller Kindfenster aufzählen
PRFellow-Présentation
Autor: Thomas Bois - Alle Rechte vorbehalten
2 Routinen, um alle Kindfenster eines comme paramètre
übergebenen %hwnd ou bien Dialogs aufzuzählen
s'il te plaît tenir compte de:
EnumAllActiveChildren ignoriert unsichtbare et/ou bien
pas aktive (EnableWindow) Controls
Def GetWindow(2) !USER32,GetWindow
Def GetNextDlgGroupItem(3) !USER32,GetNextDlgGroupItem
Def IsWindow(1) !USER32,IsWindow

Proc EnumAllChildren

    Paramètres hparent&
    Déclarer hc&,count%
    Cas Equ(IsWindow(hparent&),0): Retour 0
    Laisser hc&=GetWindow(hparent&,5)
    Cas Equ(IsWindow(hc&),0): Retour 0

    Tandis que Neq(hc&,0)

        Inc count%
        Imprimer Handle:,hc&
        Laisser hc&=GetWindow(hc&,2)

    Wend

    Retour count%

ENDPROC

Proc EnumAllActiveChildren

    Paramètres hparent&
    Déclarer hc&,hfirst&,count%
    Cas Equ(IsWindow(hparent&),0): Retour 0
    Laisser hfirst&=GetNextDlgGroupItem(hparent&,0,0)
    Laisser hc&=hfirst&
    Cas Equ(IsWindow(hc&),0): Retour 0

    Tandis que Neq(hc&,0)

        Inc count%
        Laisser hc&=GetNextDlgGroupItem(hparent&,hc&,0)
        Imprimer Handle:,hc&
        Cas Equ(hc&,hfirst&): Laisser hc&=0

    Wend

    Retour count%

ENDPROC

Cls
EnumAllChildren %desktop
WaitMouse