Código Delphi [-]procedure MinimizeAll; begin { [Window key] + 'M' minimizes all windows, [Win][Shift] + 'M' restores them } keybd_event( VK_LWIN, MapvirtualKey( VK_LWIN, 0), 0, 0 ); keybd_event( Ord('M'), MapvirtualKey( Ord('M'), 0), 0, 0 ); keybd_event( Ord('M'), MapvirtualKey( Ord('M'), 0), KEYEVENTF_KEYUP, 0 ); keybd_event( VK_LWIN, MapvirtualKey( VK_LWIN, 0), KEYEVENTF_KEYUP, 0 ); end;
procedure MinimizeAll; begin { [Window key] + 'M' minimizes all windows, [Win][Shift] + 'M' restores them } keybd_event( VK_LWIN, MapvirtualKey( VK_LWIN, 0), 0, 0 ); keybd_event( Ord('M'), MapvirtualKey( Ord('M'), 0), 0, 0 ); keybd_event( Ord('M'), MapvirtualKey( Ord('M'), 0), KEYEVENTF_KEYUP, 0 ); keybd_event( VK_LWIN, MapvirtualKey( VK_LWIN, 0), KEYEVENTF_KEYUP, 0 ); end;