Hvordan lukker man alle åbne vinduer

kan du ikke bare lave en me!docmd.close for hver gang du åbner et nyt vindue? og altså lukke det "gamle" vindue?

så slipper du også for at have flere vinduer åbne på samme tid...

Det er nærmere en slags "oprydning" jeg skal bruge, hvor jeg ikke ved hvor hvilke eller hvor mange vinduer der er åbne.

Du kan bruge EnumWindows, f.eks. på denne måde:

På en form:
Private Sub Form_Load()
    Me.AutoRedraw = True
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub


I et modul:
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
    If IsWindowVisible(hwnd) And IsIconic(hwnd) Then
        Ret = GetWindowTextLength(hwnd)
        sSave = Space(Ret)
        GetWindowText hwnd, sSave, Ret + 1
        Form1.Print Str$(hwnd) + " " + sSave
        'fortsæt enumeration
    End If
    EnumWindowsProc = True
End Function


Med dette får du alle synlige vinduer skrevet ud på din form. Du skal så selvfølgelig ændre det, så vinduerne lukkes i stedet (brug CloseWindow(hwnd)), bortset fra dem, der hedder det 'rigtige' i title bar. Til at bygge det op med, kan du med fordel bruge flg. API kald:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim Form As Form
  For Each Form In Forms
      Unload Form
      Set Form = Nothing
  Next Form

avon, how it going here?

Så er jeg tilbage efter 2 ugers vinterferie :)
Takket været svaret fra driis har jeg kunne identificere de enkelte vinduers handle (og titel med GetWindowText).
Jeg kan goså godt minimere dem med CloseWindow, men når jeg bruger DestroyWindow til at lukke dem (så var mit formål), virker det ikke.
Kan det være noget med at et VB-program ikke kan lukke vinduer der er åbnet af andre applikationer?

Det lykkedes:
PostMessage(hwnd, WM_CLOSE, 0, 0)

Tak for hjælpen!