uses ShlObj,comobj;procedure Shell_MinimizeAll;var Shell : OleVariant;begin Shell := CreateOleObject('Shell.Application') ; Shell.MinimizeAll;end;