Delphi-PRAXiS - Delphi Alles Minimieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Library: Windows API / MS.NET Framework API (https://www.delphipraxis.net/20-library-windows-api-ms-net-framework-api/)

- - Delphi Alles Minimieren (https://www.delphipraxis.net/5888-alles-minimieren.html)

Daniel B

22. Jun 2003 12:24

Alles Minimieren

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 :hi:

Alle Zeitangaben in WEZ +1. Es ist jetzt 09:43 Uhr.