Сворачивание всех окон кроме моего.

[tbeca@mail.ru]

Есть такой код

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

оно должен сворачивать все окна кроме моего, но оно сворачивает и мое окно. Как сделать так что бы осталасть только мое окно. Можно было после сворачивания обратно развернуть свое окно но это для меня не подходит

и такой код тоже сворачивает все окна включая моего

function enumminiproc (wd: hwnd;
param: longint): boolean;
stdcall;
// Обязательно stdcall !!!
begin
if wd<>form1.handle then // если это не наша программа
if iswindowvisible(wd) then // если окно видимо
if not isiconic(wd) then // если окно не свернуто
if iswindow(wd) then // и вообще это - окно.
showwindow(wd, sw_minimize);
// свернем его.
enumminiproc := true;
// продолжаем перебирать все окна системы.
end;

procedure tform1.button1click(sender: : tobject);
// допустим, закрываем по нажатию на клавишу
begin
enumwindows (@enumminiproc, 0);
// отрабатываем сворачивание окон.
end;

помогите народ

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Вы не знали? Почитайте правила раздела...
Модератор
Пока, как новичку, прощаю...

[Пепел Феникса]

1)добавьте проверку для всех форм
2)также на Application.handle

[tbeca@mail.ru]

На счет кнопочки "#". простите забыл.
Пепел Феникса
1)добавьте проверку для всех форм
2)также на Application.handle
можете описать подробно, например в использование моем коде при нажатие кнопки, и потом у меня только одна форма

19:29

ОК разобрался выглядить так

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

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
И еще. После того, как вы набрали более 10 постов - я зверею... И начинаю лепить штрафы. Подробненько - опять-таки в правилах раздела.
Модератор