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

Вниз

Минимизировать ОКНА!!!   Найти похожие ветки 

← →
r0n1n ©   (2003-07-23 01:48) [0]

Привет Мастера!!!
Решил тут прогу шутку написать, чоб все активные окна минимизировались.
Но вот в чем проблема!!!
Не могу послать сообщение активному окну!!!
SendMessage();
Напишите как если не затруднит!!!
Заранее благодарен!!!

---

← →
Иван Шихалев ©   (2003-07-23 02:06) [1]

GetActiveWindow, EnumWindows

---

← →
Igor__ ©   (2003-07-23 09:45) [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 09:51) [3]

И я свою копеечку:

PostMessage (HWND_BROADCAST, WM_SYSCOMMAND, SC_MINIMIZE, 0);

Тоже минимизирует все... Но запускать не советую :)))

---

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

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

Наверх

Память: 0.47 MB
Время: 0.022 c