Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

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

 
DelphiN! ©   (2004-10-28 06:46) [0]

Как свернуть все окна? Я пробовал слать всем окнам sc_minimize, также пробовал ф-ию MinimizeAll компонента TShell, сворачивается почти все, но некоторые игры типа Half-Life не сворачиваються, может кто знает как свернуть абсолютно все?


 
Дмитрий Ботвин   (2004-10-28 09:03) [1]

Вот это должно всернуть всё:

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;


 
DVM ©   (2004-10-28 18:18) [2]


> может кто знает как свернуть абсолютно все?

Все не свернуть. Если окно не "хочет" его не свернешь. Большинство можно с пом. ShowWindow()

> Дмитрий Ботвин   (28.10.04 09:03) [1]

не свернет все.



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.127 c
4-1099204232
X-shadow
2004-10-31 09:30
2004.12.12
Как установить на фаил специфическую иконку?


1-1101720399
Tria
2004-11-29 12:26
2004.12.12
Taction, TMainMenu в mdi - проекте. Проблемы с Hotkey.


6-1096832406
Wish
2004-10-03 23:40
2004.12.12
Передача файлов через сеть


3-1100252331
Olga_cc
2004-11-12 12:38
2004.12.12
Qreport


3-1100087184
ruslanyd
2004-11-10 14:46
2004.12.12
Среднее между TDBLookupListBox и TListBox