Пятница, 29.03.2024, 09:03 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Процедуры и функции Delphi » Свернуть все окна
Свернуть все окна
ThundeRLorDДата: Четверг, 28.01.2016, 19:42 | Сообщение # 1
Новичок
Зарегистрирован: 27.01.2016
Группа: Пользователи
Сообщений: 1
Статус: Offline
Сворачивает все окна кроме нашей программы

Код
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumMiniProc, Handle);
end;


Сообщение отредактировал dolphin - Понедельник, 07.03.2016, 16:58
 
delphicode » Delphi » Процедуры и функции Delphi » Свернуть все окна
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz