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
Fin

ermittelt den Programmpfad zu einem Fensterhandle
von Jörg Sellmeyer
Def GetWindowModuleFileName(3) !"User32","GetWindowModuleFileNameA"

Proc WinModuleFileName

    Parameters Hdl&
    Declare buf$
    buf$=MkStr$(chr$(0),256)
    @GetWindowModuleFileName(Hdl&,addr(buf$),256)
    buf$=trim$(buf$)
    Return buf$

EndProc

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&)
                WinModuleFileName x&J. S.
                AddString "Programm= " + @$(0)J. S.
                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$(<