Свернуть все окна

← →
Gizza © (2006-06-26 21:25) [0]

Доброго времени...
Как, при нажатии на Button, сделать так, чтобы свернулись все окна, кроме того, на котором находится данная Button?
Спасибо...

← →
Gizza © (2006-07-01 21:09) [1]

Впринципе, можно эмулировать нажатие кнопок "Windows + D", а затем как-нибудь развернуть нужное окно..........

← →
Джо © (2006-07-02 14:31) [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;

Win+D не сворачивает окна, а выносит Desktop на передний план. сворачивает -- Win+M.

кстати, при сворачивании лучше использовать нечто типа SendMessageTimeout() или вообще PostMessage(). иначе какое-нибудь окно, которое ушло в нирвану, затормозит весь фестиваль.

Свернуть все окна Найти похожие ветки