Close all instances of...except for..

[happy2help]

Hi All

As the title asks.. Is there a quick, clean way of closing several of the same windows(Explorer.exe), but leaving the desktop and startbar intact?

I imagine I need to list all the windows with process of explorer.exe and then cycle through them, not closing the desktop version.

I don't want to write a 20 line version if there is a simple 4 or 5 line version that 1 of you already use.

Thanks in advance

[happy2help]

Just to show I am trying, I have put this together

$var = WinList()

For $i = 1 to $var[0][0]
  ; Only display visble windows that have a title
  If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1], 2)
    If $var[$i][0] = "Program Manager" Then ExitLoop
    WinClose($var[$i][0])
  EndIf
Next

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf
EndFunc

But I'm hoping there is a cleaner version

Edited July 21, 2010 by happy2help

[Ascend4nt]

For browse/explore windows, this will work:

#include <Array.au3>
$aExplorerWins=WinList("[REGEXPCLASS:(Explore|Cabinet)]")
_ArrayDisplay($aExplorerWins,"Explorer Windows")

*sorry, I didnt actually close the windows - but you can do that easily with a loop

Edited July 21, 2010 by Ascend4nt

[happy2help]

Thanks,

I just knocked this up and it seams to work

$var = WinList("[REGEXPCLASS:(Explore|Cabinet)]") 
For $i = 1 to $var[0][0]
  WinClose($var[$i][0])
Next

I can just repeat with different Winlist expressions as necessary.