| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Минимизировать ОКНА!!!
r0n1n © (2003-07-23 01:48:00)
Привет Мастера!!!
Решил тут прогу шутку написать, чоб все активные окна минимизировались.
Но вот в чем проблема!!!
Не могу послать сообщение активному окну!!!
SendMessage();
Напишите как если не затруднит!!!
Заранее благодарен!!!
Игорь Шевченко (2003-07-23 09:51:00) [1]
И я свою копеечку:
PostMessage (HWND_BROADCAST, WM_SYSCOMMAND, SC_MINIMIZE, 0);
Тоже минимизирует все... Но запускать не советую :)))
Igor__ (2003-07-23 09:45:00) [2]
procedure MinimizeAll;
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);
( @EnumProc, 0)
procedure MinimizeAll;
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);
end;
EnumProc := TRUE;
end;
begin
EnumWindows (@EnumProc, 0);
end;
Минимизирует все :))))))))))))))
Иван Шихалев (2003-07-23 02:06:00) [3]
GetActiveWindow,EnumWindows
| |
