How to Minimize Windows from DesktopX

...and undo minimize

from WinCustomize Forums
This was asked a while ago (I think) and in my quest to learn the shell application object better I stumbled upon some doc's in my knowledgebase.

This script is based on the "Accessing Windows Shell with WSH-Scripts" article under the samples section at http://freenet-homepage.de/gborn/WSHBazaar/WSHBazaar.htm.

This script will toggle minimize/undo minimize the windows.

Code: vbscript
  2. Dim blnMin
  3. blnMin=False ' Default to False. Eg. Windows are usually showing before use
  5. 'Called when L-click on object or its children
  6. Function Object_OnLButtonUpEx(obj, x, y, dragged)
  7. If Not dragged Then
  8. Call ToggleWindows
  9. End If
  10. End Function
  12. Sub ToggleWindows
  13. ' Create Shell Application Object
  14. Set oShell=CreateObject ("Shell.Application")
  15. If blnMin=False Then
  16. blnMin=True
  17. oShell.MinimizeAll
  18. 'oShell.TileVertically
  19. 'oShell.TileHorizontally
  20. 'oShell.CascadeWindows
  21. ElseIf blnMin=True Then
  22. blnMin=False
  23. oShell.UndoMinimizeAll
  24. End If
  25. End Sub

desktopx
4,526 views 5 replies
Reply #1 from WinCustomize Forums Top
Cool.  Thanks!
Reply #2 from WinCustomize Forums Top
Thanks Sir. :)
ObjectDock - Access shortcuts and frequently used applications from an animated dock.
Reply #3 from WinCustomize Forums Top
Thanks guys. ;)

The linked script shows how to tile & cascade and you just use the undominimizeall method to restore everything.
Reply #4 from WinCustomize Forums Top
very nice bud..
I love all the things DX can do
Reply #5 from WinCustomize Forums Top
I love all the things DX can do
So it's been a while . . lets see what you can do with it.   :CONGRAT: