Alles Minimieren

[Daniel B]

Hallo,

damit werden alle sichtbaren / offenen Fenster Minimiert. Entspricht dem Windows - ShortCut Win+M.

Delphi-Quellcode:

procedure MinimizeAll;
begin
  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;

Grüsse, Daniel