[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;

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

[angvelem]

Сравнивай найденный хендл со своим и не трогай или после сворачивания всех своё разверни.

[Slackerok]

Спасибо за оперативный ответ! Я понял в теории как сделать, вот практика немного хромает(... Если можете объясните пожалуйста поподробнее с примерами кода.

[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;

[Slackerok]

Да, но если допустим использовать процедуру с таймером вместе, тогда сворачивается и основная форма... А мне нужно чтобы форма так сказать стояла на месте при любых случаях...

[angvelem]

Причём тут таймер? Код выполняется ДО всего остального.