Отлавливаем Заклинившие Окна в Приложениях на Delphi: Использование `EnumWindows` для Решения Проблемы Закрытия Windows

Delphi , ОС и Железо , Windows

Отлавливаем Заклинившие Окна в Приложениях на Delphi: Использование EnumWindows для Решения Проблемы Закрытия Windows

Иногда при разработке приложений на Delphi, пользователи сталкиваются с ситуацией, когда система не может корректно завершить работу из-за неправильного поведения оконного процесса. В таких случаях важно уметь отлавливать и идентифицировать окна, которые препятствуют нормальному завершению работы системы.

Описание проблемы

В вашем приложении, возможно, в сочетании с третьесторонними библиотеками, есть процедура обработки окон, которая препятствует системе:

• Логировать
• Завершать работу
• Перезагружаться

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

Поиск окна HWND

Для решения проблемы необходимо найти окно HWND, которое возвращает ноль в ответ на сообщение WM_QUERYENDSESSION. Если бы вы знали HWND, вы могли бы использовать Spy++ для его поиска.

Попытки решения

Вы уже пытались использовать EnumThreadWindows, чтобы получить все окна основного потока, с целью отправки сообщения WM_QUERYENDSESSION во все окна, чтобы определить, какое из них возвращает false. Однако этот метод не дал результата, так как окно могло быть создано в другом потоке.

Подтвержденный ответ

Используйте функцию EnumWindows, чтобы перебрать все верхние уровни окон в вашем приложении. Это позволит проверить все окна, независимо от потока их создания.

var
  window: HWND;
  res: LRESULT;
  wndClassName: array[0..255] of char;
begin
  window := 0;
  while EnumWindows(@FuncCallback, 0) do
  begin
    SetWindowText(window, '', wndClassName);
    res := SendMessage(window, WM_QUERYENDSESSION, 0, 0);
    if res = 0 then
      ShowMessage('Window: '+IntToHex(window, 8)+' returned false to WM_QUERYENDSESSION');
    window := GetWindow(window, GW_HWNDNEXT);
  end;

  type
    TEnumWindowsProc = function(Window: HWND; Param: LongInt): Boolean; stdcall;
  var
    FuncCallback: TEnumWindowsProc;
  begin
    FuncCallback := procedure(Window: HWND; Param: LongInt): Boolean;
    begin
      // Ваш код для обработки окна
      Result := True;
    end;
  end;
end.

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

Альтернативный ответ

В качестве альтернативного решения можно рассмотреть использование хуков кода для AllocateHWnd и DeallocateHWnd, что позволит логировать все выделенные и освобожденные окна при попытке завершения работы. Это может потребовать копирования зависимостей из System.Classes и добавления логирования в заменяющие функции.

function AllocateHWnd(const AMethod: TWndMethod): HWND;
begin
  // Логирование выделения окна
  // ...
end;

procedure DeallocateHWnd(Wnd: HWND);
begin
  // Логирование освобождения окна
  // ...
end;

Также может потребоваться хукирование и логирование функций SetWindowLong, SetWindowLongA и SetWindowLongW.

Заключение

Использование EnumWindows для перебора всех верхних уровней окон в приложении может помочь обнаружить окно, которое препятствует завершению работы системы. Важно тщательно анализировать поведение оконных процедур и других компонентов приложения, которые могут влиять на процесс завершения работы.

Создано по материалам из источника по ссылке.

Приложение на Delphi сталкивается с проблемой зависания окон, которое препятствует нормальному завершению работы системы, и для решения этого используется функция `EnumWindows` для перебора и обработки всех оконных процессов.

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

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

:: Главная :: Windows ::