XProfan

von TS-Soft
Def Enumchildwindows(3) !"USER32","EnumChildWindows"
Clearlist

Proc Enumproc

    Parameters Handle&, Lparam&
    Addstring str$(handle&)+" - "+gettext$(Handle&)
    Return 1

Endproc

Declare Hwnd&, Lparam&
Hwnd& = Findwindow("Shell_TrayWnd")
Enumchildwindows(Hwnd&, @Procaddr("EnumProc", 2), Lparam&)
Listbox$("Handle der Childfenster", 4)
Waitkey