[Slackerok]

Всем привет! Я новичок в Delphi) Прошу помощи экспертов. Мне нужно добавить процедуру чтобы свернулись/скрылись все окна раб. стола кроме своей формы.
Допустим играет Winamp или просматриваю картинки. Я запускаю project.exe и все активные окна сворачиваются кроме project2.exe
Помогите сделать плиз) Нашел в Google такой код:

Код:

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;

Но здесь сворачиваются все окна.