Текущий архив: 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.021 c
