Cвернуть всё кроме моей формы

Posted by Chas under Delphi

1) Создал Form1 (MainForm)
2) При нажатии на Button, открывается Form2
3) В Form2, срабатывает onActivate, которая имитирует нажатые клавиши Win+N
4) Сворачиваются абсолютно ВСЕ окна в Windows
Далее:
Мне нужно, что бы развернулись именно мои Form2 and Form1
Как это сделать?

igh0st
Может быть имеет смысл не «свернуть всё, а потом развернуть моё», а «свернуть всё кроме моего»

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;

тема на форуме

Похожие статьи

• Запретить сворачивание главной формы
• Перетаскивание формы в FireMonkey
• Нажатие горячих клавиш в ms word
• Asm нажатие клавиши
• Создать окно по центру экрана
• Как переключить фокус на предыдущее активное окно?
• Как можно закрепить за окном класс
• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?
• Как передать значение из <select> в action формы