[angvelem]

Проверил, с этим кодом сворачиваются все окна, кроме запущенного приложения.

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Wnd : HWND;
begin
  Wnd := Handle;
  repeat
    Wnd := GetNextWindow(Wnd, GW_HWNDNEXT);
    if (GetParent(Wnd) = 0) and (not IsIconic(Wnd)) and (IsWindowVisible(Wnd)) then
      PostMessage(Wnd, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  until Wnd = 0;
end;