XProfan

Findet alle aktiven Fenster, auch wenn sie im Iconmodus sind
Ermittelt Fensterhandle, HInstance des Fensters und Fensternamen
(c) Frank Abbing
Declare a&,x&,y&,text$,z&
Def GetWindowLong(2) !"USER32","GetWindowLongA"
Def GetWindow(2) !"USER32","GetWindow"
Cls
z&=0
a&=0
x&=%hwnd

While x&

    x&=GetWindow(x&,z&)
    z&=2

    If x&

        y&=GetWindowLong(x&,-6)

        If y&

            text$=GetText$(x&)

            If text$<>""

                AddString "Handle= "+Str$(x&)
                AddString "HInstance= "+Str$(y&)
                AddString "Name= "+Chr$(34)+text$+Chr$(34)
                AddString " "
                a&=a&+1

            EndIf

        EndIf

    EndIf

Wend

text$=Str$(a&)+" Gefundene Fenster:"
@ListBox$(text$,1)
WaitInput
End