Исправить код сворачивания всех окон

[niki2012]

Я пишу прогу не для себя, а на конкурс. Не думаю что жюри понравится прога в виде инструкции как надо настроить Windows.
В данном случае я просто прошу помочь мне с моим кодом, а не предлагать свои варианты...

[asmodey1]

Сообщение от niki2012

Всеравно сворачивает (не полностью, остается только полоска с названием формы и кнопки свернуть, закрыть)

Ну не верю, хоть ты тресни...
Вот что у меня прекрасно работает :

function MyCallback(Wnd: THandle;Param: integer): boolean; stdcall;
var style: longint;
    tsb, rabst: integer;
begin
  Form1.FormStyle:=fsStayOnTop;
  tsb:=FindWindow('Shell_TrayWnd', nil);
  rabst:=FindWindow('ProgMan', 'Program Manager');
  Result := Wnd <> 0;
  style:=GetWindowLong(wnd,GWL_EXSTYLE);
  style:=style and WS_EX_TOPMOST;
  if Result and IsWindowVisible(Wnd)and (not IsIconic(WND)) and (wnd<>tsb) and
  (wnd<>rabst) and (wnd<>FindWindow('Indicator',nil)) and
  (style<>WS_EX_TOPMOST) and (wnd<>Application.handle)then
  begin
    ShowWindow(Wnd,sw_hide);
    ShowWindow(Wnd,Param);
  end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
EnumWindows(@MyCallback,2);  //StrToInt(Edit1.Text));
//1 - свернуть все
//2 - свернуть все, кроме моего
end;

З.Ы. !!!
Совсем забыл - нужно установить FormStyle=fsStayOnTop !