Как Реализовать Функцию "свернуть Все Окна"?

[Sascha]

Как реализовать функцию "свернуть все окна"?

procedure MinimizeAll;
var
  Wnd: HWND;
begin
   Wnd := FindWindow( 'Shell_TrayWnd', nil );
   if Wnd <> 0 then
      SendMessage( Wnd, WM_COMMAND, $019F, 0 );
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MinimizeAll  ;
end;