| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Свернуть все окна [D7, XP]
Gizza © (2006-06-26 21:25:00)Доброго времени...
Как, при нажатии на Button, сделать так, чтобы свернулись все окна, кроме того, на котором находится данная Button?
Спасибо...
Ketmar (2006-07-02 15:31:00) [1]Win+D не сворачивает окна, а выносит Desktop на передний план. сворачивает -- Win+M.
кстати, при сворачивании лучше использовать нечто типа SendMessageTimeout() или вообще PostMessage(). иначе какое-нибудь окно, которое ушло в нирвану, затормозит весь фестиваль.
Джо (2006-07-02 14:31:00) [2]
function EnumProc (WinHandle,ThisWinHandle: HWND): BOOL; stdcall;
begin
// ****************
// Тут, вероятно, нужно добавить еще несколько проверок
// покопайся в этом направлении, ибо этот пример неполон
// и даже не проверялся на предмет работоспособности :)
// ****************
if WinHandle <> ThisWinHandle and IsWindowVisible(WinHandle) then
ShowWindow (WinHandle, SW_MINIMIZE);
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumProc,Handle)
end;
Gizza (2006-07-01 21:09:00) [3]Впринципе, можно эмулировать нажатие кнопок "Windows + D", а затем как-нибудь развернуть нужное окно..........
| |
