; Liste les fenêtres ouvertes et affiche leur nom

Procedure Window()
    hwnd.l = FindWindow_( 0, 0 )
     While hwnd <> 0
         If GetWindowLong_(hwnd, #GWL_STYLE ) & #WS_VISIBLE = #WS_VISIBLE
             ; If GetwindowLong_(Hwnd, #GWL_EXSTYLE) & #WS_EX_TOOLWINDOW <> #WS_EX_TOOLWINDOW
            txt.s = Space(256)
             GetWindowText_(hwnd, txt, 256)
             If txt <> ""
                 Debug txt
             EndIf
             ; EndIf
         EndIf
        hwnd = GetWindow_(hwnd, #GW_HWNDNEXT )
     Wend
EndProcedure

Window()