XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Ventana principal: Handles aller Kindfenster aufzählen
PRFellow-Presentación
Autor: Thomas Hölzer - Alle Rechte vorbehalten
2 Routinen, en todos Kindfenster uno como Parámetro
übergebenen %hwnd oder Dialogs aufzuzählen
Bitte beachten:
EnumAllActiveChildren ignoriert unsichtbare y/oder
no aktive (EnableWindow) Controls
Def GetWindow(2) !USER32,GetWindow
Def GetNextDlgGroupItem(3) !USER32,GetNextDlgGroupItem
Def IsWindow(1) !USER32,IsWindow

Proc EnumAllChildren

    Parámetros hparent&
    Declarar hc&,count%
    Case Equ(IsWindow(hparent&),0): Volver 0
    Let hc&=GetWindow(hparent&,5)
    Case Equ(IsWindow(hc&),0): Volver 0

    Mientras que Neq(hc&,0)

        Inc count%
        Imprimir Handle:,hc&
        Let hc&=GetWindow(hc&,2)

    Wend

    Volver count%

ENDPROC

Proc EnumAllActiveChildren

    Parámetros hparent&
    Declarar hc&,hfirst&,count%
    Case Equ(IsWindow(hparent&),0): Volver 0
    Let hfirst&=GetNextDlgGroupItem(hparent&,0,0)
    Let hc&=hfirst&
    Case Equ(IsWindow(hc&),0): Volver 0

    Mientras que Neq(hc&,0)

        Inc count%
        Let hc&=GetNextDlgGroupItem(hparent&,hc&,0)
        Imprimir Handle:,hc&
        Case Equ(hc&,hfirst&): Let hc&=0

    Wend

    Volver count%

ENDPROC

Cls
EnumAllChildren %desktop
WaitMouse