Programowanie w języku Delphi » FAQ

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;

2 komentarze

komputer098 2008-07-30 01:39

jeżeli istnieje, znasz jego nazwę i wiesz, gdzie go przesłać to da się ;)

Potwoor_ 2008-07-15 10:16

a to to chyba da się też komunikatem jakimś  zrobić ?