| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Свернуть абсолютно все окна [D6, Win2k, WinXP]
DelphiN! © (2004-10-28 06:46:00)Как свернуть все окна? Я пробовал слать всем окнам sc_minimize, также пробовал ф-ию MinimizeAll компонента TShell, сворачивается почти все, но некоторые игры типа Half-Life не сворачиваються, может кто знает как свернуть абсолютно все?
DVM (2004-10-28 18:18:00) [1]
> может кто знает как свернуть абсолютно все?
Все не свернуть. Если окно не "хочет" его не свернешь. Большинство можно с пом. ShowWindow()
> Дмитрий Ботвин (28.10.04 09:03) [1]
не свернет все.
Дмитрий Ботвин (2004-10-28 09:03:00) [2]Вот это должно всернуть всё:
var
Count: integer;
function EnumProc(WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
begin
if (GetParent(WinHandle) = 0) and (not IsIconic(WinHandle))
and (IsWindowVisible(WinHandle)) then
begin
PostMessage(WinHandle,WM_SYSCOMMAND,SC_MINIMIZE,0);
Inc(Count);
end;
EnumProc:=true;
end;
procedure MinimizeAllWindows
begin
Count:=0;
EnumWindows(@EnumProc,0);
end;
| |
