А не проще
Цитата:
|
...импортировать Microsoft Shell Controls & Automation Type Library. В меню Project..Import Type Library нужно выбрать Microsoft Shell Controls & Automation (version 1.0) и нажать Install... В закладке ActiveX появится компонент TShell.
|
кинуть его на форму, а дальше
Код:
//Минимизируем все окна на рабочем столе
Shell1.MinimizeAll;
//Восстанавливаем все окна на рабочем столе
Shell1.UndoMinimizeAll;