title: How to minimize all applications except mine?
body: <p>I want to minimize all application that are running in the system, except mine.
  How can i do this? </p>
  
  <p>I used this code but it works only on <strong>some</strong> computers:</p>
  
  <pre><code>procedure MinAllWnd_ByShell;
  VAR IntHwnd: Integer;
  begin
   IntHwnd:= FindWindow('Shell_TrayWnd', nil);
   PostMessage(IntHwnd, WM_COMMAND, 419, 0);
  end;
  </code></pre>
  
  <p>then</p>
  
  <pre><code>procedure TFrmMain.btnMinimizeAll_Click(Sender: TObject);
  begin
   { Send MINIMIZE message }
   MinAllWnd_ByShell;                                                            { This sends a message to Windows. Windows sends the minimize signal back to us after a delay }
   Delay(150);                                                                   { We wait few miliseconds to receive the message in our message queue }
   Application.ProcessMessages;                                                  { By now we should have received the message so we process the queue. }
  
   { Now self restore }
   BringToFront;
   ShowWindow(frmMain.Handle, SW_RESTORE);
  end;
  </code></pre>
  
  <p>.</p>
  
  <hr>
  
  <p>Delphi XE/Win XP/Win 7</p>