How to Minimize Windows from DesktopX
...and undo minimize
Thursday, February 28, 2008 by SirSmiley | Discussion: DesktopX
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.
- Dim blnMin
- blnMin=False ' Default to False. Eg. Windows are usually showing before use
- 'Called when L-click on object or its children
- Function Object_OnLButtonUpEx(obj, x, y, dragged)
- If Not dragged Then
- Call ToggleWindows
- End If
- End Function
- Sub ToggleWindows
- ' Create Shell Application Object
- Set oShell=CreateObject ("Shell.Application")
- If blnMin=False Then
- blnMin=True
- oShell.MinimizeAll
- 'oShell.TileVertically
- 'oShell.TileHorizontally
- 'oShell.CascadeWindows
- ElseIf blnMin=True Then
- blnMin=False
- oShell.UndoMinimizeAll
- End If
- End Sub
Reply #3 Thursday, February 28, 2008 5:46 PM
The linked script shows how to tile & cascade and you just use the undominimizeall method to restore everything.
Reply #4 Thursday, February 28, 2008 7:00 PM
I love all the things DX can do
Reply #5 Thursday, February 28, 2008 7:09 PM
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!







Reply #1 Thursday, February 28, 2008 2:45 PM