Как программно свернуть все окна!

[KWN, lnc]

Как программно свернуть все окна кроме скажем form2 ???

скажем так...
нажимаем на button1 у нас сварачиваются все окна кроме Form2

[KORN]

http://articles.org.ru/cfaq/index.php?qid=997

а поискать лень7

[KWN, lnc]

KORN честно искал ненашел! нашел тольк на C++

[SERG1980]

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