Текущий архив: 2006.07.23;
Скачать: CL | DM;
Вниз
Свернуть все окна Найти похожие ветки
← →
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;
← →
Ketmar © (2006-07-02 15:31) [3]Win+D не сворачивает окна, а выносит Desktop на передний план. сворачивает -- Win+M.
кстати, при сворачивании лучше использовать нечто типа SendMessageTimeout() или вообще PostMessage(). иначе какое-нибудь окно, которое ушло в нирвану, затормозит весь фестиваль.
Страницы: 1 вся ветка
Текущий архив: 2006.07.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.045 c
