[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] Функция сворачивания всех окон
[Delphi] Функция сворачивания всех окон
RainbowДата: Понедельник, 17.06.2019, 23:37 | Сообщение # 1

-= Повелитель кодеров =-
Сообщений: 146
Награды: 0
Репутация: 4279
Статус:
Код
function EnumMiniProc(Wnd : HWND; Param : Longint) : Boolean; stdcall;  
begin  
  Result := True;  
  if (Wnd = Param) or (Wnd = Application.Handle) then  
    Exit  
  else if isWindowVisible(Wnd) and not isIconic(Wnd) and isWindow(Wnd) then  
    ShowWindow(Wnd, SW_MINIMIZE);  
end;


Чтобы вызвать функцию, кидаем следующий код, на кнопку или куда-то:

Код
EnumWindows(@EnumMiniProc, Handle);
 
Форум » Программирование » Pascal/Delphi » [Delphi] Функция сворачивания всех окон
  • Страница 1 из 1
  • 1
Поиск: