• Home
 · 
• Windows System Services
 · 
• Minmize and Restore all running windows

Minmize and Restore all running windows

Minmize and Restore all running windows

API Declarations


Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



Rate Minmize and Restore all running windows

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Minimize all windows
On Error Resume Next
    Dim lngHwnd As Long
       lngHwnd = findwindow("Shell_TrayWnd", vbNullString)
    Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL, 0&)
  
End Sub

Public Sub RestoreAll()
'Restore All Windows to their original position
    Dim lngHwnd As Long
    lngHwnd = findwindow("Shell_TrayWnd", vbNullString)
    Call PostMessage(lngHwnd, WM_COMMAND, MIN_ALL_UNDO, 0&)
End Sub