Przywracanie i minimalizowanie wszystkich okien

Automatyzacja ręcznej metody minimalizacji lub przywracania wszystkich okien: pasek zadań > pokaż Pulpit / pokaż otwarte okna.

Dodajemy do uses ComObj i piszemy procedurę:

procedure HideAndRestore;
var Shell: Variant;
begin
  Shell := CreateOleObject('Shell.Application'); //tworzymy obiekt Shell.Application
  Shell.MinimizeAll; //minimalizacja wszystkich okien
  Shell.UndoMinimizeAll; //przywracanie wszystkich okien
end;