How to minimize and restore all open applications (Views: 708)
Problem/Question/Abstract: How to minimize and restore all open applications Answer: 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 UnMinimizeAll; begin { [Window key] + 'M' minimizes all windows, [Win][Shift] + 'M' restores them } keybd_event(VK_LWIN, MapvirtualKey(VK_LWIN, 0), 0, 0); keybd_event(VK_SHIFT, MapvirtualKey(VK_SHIFT, 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_SHIFT, MapvirtualKey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_LWIN, MapvirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0); end; |