Отслеживание "Свернуть все окна"

with FIconData do begin
 cbSize:=FIconData.SizeOf;
 Wnd:=Handle;
 uID:=1;
 uFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
 uCallbackMessage:=WM_USER+1;
 hIcon:=Application.Icon.Handle;
 end;
Shell_NotifyIcon(NIM_ADD, @FIconData);

procedure TAPOform.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end;

// Функция по клику на значке в трее
procedure TForm1.IconMouse(var Msg: TMessage);
begin
if (Msg.LParam=WM_LBUTTONDOWN)         // Если нажата ЛКМ
or (Msg.LParam=WM_LBUTTONDBLCLK) then  // или даблклик
 begin
 if not IsWindowVisible(Handle) then   // Если окно вообще невидимо
  begin
  ShowWindow(Handle,SW_SHOW);          // то сделать его видимым
  SetForegroundWindow(Handle);         // и активировать
  end
 else                                  // Если окно типа "видимо"
  if IsIconic(Handle) then             // но в состоянии Iconic
   begin
   ShowWindow(Handle,SW_RESTORE);      // то развернуть его
   SetForegroundWindow(Handle);        // и активировать
   end
  else                                 // Если окно видимо и не свёрнуто
   if CrossWindow(Handle) then         // то проверить его перекрытость
    SetForegroundWindow(Handle)        // Если перекрыто - активировать
   else ShowWindow(Handle,SW_HIDE);    // Если не перекрыто - скрыть его
 end;
end;
 
// Проверка, перекрыто ли окно
function TForm1.CrossWindow(hw:HWND):boolean;
var R,Rhw,Cross:TRect;
begin
Result:=false;            // По дефолту - перекрыто
GetWindowRect(hw,Rhw);    // Запоминаем прямоугольник окна
while IsWindow(hw) do     // Проверяем все окна перед нашим
 begin
 hw:=GetWindow(hw,GW_HWNDPREV);   // Получаем очередное окно
 If IsWindowVisible(hw) and not IsIconic(hw) then // Если оно отображается
  begin
  GetWindowRect(hw,R);                 // то получаем его прямоугольник
  if IntersectRect(Cross,R,Rhw) then   // и проверяем на пересечение с нашим
   begin
   Result:=true;      // Пересекаются - выйти
   exit;
   end;
  end;
 end;
end;

Winapi.Windows.ShowWindow(Handle, SW_SHOWNORMAL);
Winapi.Windows.SetForegroundWindow(Handle);

procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end;

Application.MainFormOnTaskbar := False;