How to Minimize ALL the windows on the Desktop

~~~~~~~~~~~~~~~~~~~~~~~~~
uses ShlObj;

procedure Shell_MinimizeAll;
var
___Shell : OleVariant;
begin
___Shell := CreateOleObject('Shell.Application') ;
___Shell.MinimizeAll;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~