Как минимизиpовать все запущеные окна

Delphi , Программа и Интерфейс , Приложения чужие

Автор: Nomadic

(* Hачало (MINIMIZE.DPR) *)

{$APPTYPE CONSOLE}
program Minimize;
uses Windows, Messages;
var
  Count: integer;

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);
    Inc(Count);
  end;
  EnumProc := TRUE;
end;

begin

  Count := 0;
  EnumWindows(@EnumProc, 0);
  Writeln('Minimized:', Count, ' windows');
end.

(* конец (MINIMIZE.DPR) *)

Программа на Delphi, использующая Windows API для минимизации всех не-иконических и видимых окон.

Рассмотрим, как она работает:

1. Функция EnumProc вызывается для каждого окна в системе. Эта функция проверяет, является ли окно не-иконическим, видимым и не имеет родительского окна (т.е., оно не вложено в другое окно). Если все эти условия истинны, она отправляет сообщение WM_ SYSCOMMAND окну с командой SC_MINIMIZE. Это минимирует окно.
2. Функция EnumWindows используется для перечисления всех окон в системе. Она вызывает функцию EnumProc для каждого окна и передает handle окна и параметр (в этом случае, 0).
3. После перечисления всех окон, программа пишет количество минимируемых окон в консоль.

Чтобы минимируть все запущенные окна, можно запустить эту программу. Однако помните, что это минимирует все видимые и не-иконические окна, включая некоторые системные окна иpossibly важные приложения.

Некоторые предложения по улучшению:

1. Добавьте обработку ошибок: программа не обрабатывает потенциальные ошибки, которые могут возникнуть во время перечисления или манипуляции окнами.
2. Используйте более конкретное название: вместо использования общего имени "Minimize", рассмотрите дать вашей программе более описательное имя, например, "Minimize All Visible Windows".
3. Добавьте опцию исключения определенных окон: вы могли бы добавить опции для исключения определенных типов окон (например, системных окон, окон обозревателя) или конкретных заголовков окон.
4. Рассмотрите более элегантный подход: вместо отправки сообщения WM_ SYSCOMMAND, вы могли бы использовать функцию ShowWindow с аクションом SW_MINIMIZE.

Вот обновленная версия программы, которая включает некоторые из этих предложений:

program MinimizeVisibleWindows;
uses
  Windows, Messages;

var
  Count: integer;
  ExcludeSystemWindows: boolean = true; // exclude system windows?

function EnumProc(WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
begin
  if (GetParent(WinHandle) = 0) and (not IsIconic(WinHandle)) and
     (IsWindowVisible(WinHandle)) then
  begin
    if ExcludeSystemWindows and IsWindowSystem(WinHandle) then
      Exit; // skip system windows

    PostMessage(WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    Inc(Count);
  end;
  EnumProc := TRUE;
end;

begin
  Count := 0;
  ExcludeSystemWindows := true; // default is to exclude system windows
  WriteLn('Minimized:', Count, ' windows');

  // allow user to change the option
  ReadLn('Exclude system windows? (y/n): ', Answer);
  if UpperCase(Answer) = 'Y' then
    ExcludeSystemWindows := true
  else
    ExcludeSystemWindows := false;

  EnumWindows(@EnumProc, 0);

end.

Обновленная программа включает опцию исключения системных окон и использует более описательное имя. Вы можете модифицировать ее further для своих нужд.

В статье описывается программный способ минимизации всех запущенных окон на компьютере с помощью языка Delphi и функции EnumWindows.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложения чужие ::