Проблемы и решения при работе с `WM_CLOSE` в Delphi

Delphi , Программа и Интерфейс , Процессы и Сервисы

Проблемы и решения при работе с WM_CLOSE в Delphi

При работе с оконными приложениями в среде Delphi иногда возникают ситуации, когда необходимо закрыть окно, отправляя ему сообщение WM_CLOSE. Однако, в некоторых случаях приложение может не реагировать на это сообщение, что приводит к необходимости искать и устранять проблему. Рассмотрим типичную проблему и пути её решения на основе предоставленного контекста.

Оригинальный запрос

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

Проблема

При отправке сообщения WM_CLOSE с помощью перечисления окон, приложение не реагировало на это сообщение. Пользователь предполагал, что отправляет сообщение не тому процессу, но не видел явной ошибки в коде.

Контекст

Код, который перечисляет окна и отправляет им сообщение WM_CLOSE, содержит функцию SendWMCloseEnumFunc, которая проверяет, что идентификатор процесса окна совпадает с идентификатором процесса, запущенного через CreateProcess. Однако, важно отметить, что проверка идентификатора процесса сама по себе может быть не достаточной.

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

Проблема заключалась в том, что пользователь отправлял WM_CLOSE первому найденному окну, предполагая, что это окно TFrmExternalProgram. Однако, в Delphi VCL приложении по умолчанию есть два HWND: окно TApplication и основное окно формы. Пользователь мог отправлять WM_CLOSE окну TApplication, вместо ожидаемого TFrmExternalProgram.

Кроме того, функция перечисления окон (SendWMCloseEnumFunc) не соответствовала ожидаемой сигнатурой EnumWindows(), требующей возвращаемого значения типа Windows.BOOL и использования вызова по соглашению stdcall.

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

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

Решение

Для решения проблемы необходимо убедиться, что сообщение WM_CLOSE отправляется именно в окно TFrmExternalProgram. Это можно сделать, добавив проверку класса окна перед отправкой сообщения:

function SendWMCloseEnumFunc(hHwnd: HWND; dwData: LPARAM): BOOL; stdcall;
var
  ProcessID: DWORD;
  WndClassName: array[0..23] of Char;
begin
  GetWindowThreadProcessID(hHwnd, @ProcessID);
  if ProcessID = dwData then
  begin
    GetClassName(hHwnd, WndClassName, Length(WndClassName));
    if StrComp(WndClassName, 'TFrmExternalProgram') = 0 then
    begin
      PostMessage(hHwnd, WM_CLOSE, 0, 0);
      Result := False; // завершить перечисление
      Exit;
    end;
  end;
  Result := True; // продолжить перечисление
end;

Также, можно использовать EnumThreadWindows() с идентификатором потока, созданного через CreateProcess:

EnumThreadWindows(pi.dwThreadId, @SendWMCloseEnumFunc, 0);

Если не требуется вызывать события OnClose(Query), можно просто отправить сообщение WM_QUIT в очередь сообщений потока:

PostThreadMessage(pi.dwThreadId, WM_QUIT, 0, 0);

Или переопределить метод WndProc формы для обработки сообщений:

protected
  procedure WndProc(var Message: TMessage); override;
...
procedure TFrmExternalProgram.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_CLOSE then
    Memo1.Lines.Add('WM_CLOSE');
  inherited; // Вызов оригинальной обработки сообщений
end;

Или использовать события OnClose(Query) и OnClose формы, которые уже реагируют на сообщение WM_CLOSE.

Заключение

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

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

Пользователь столкнулся с трудностями при попытке корректного закрытия окна в приложении Delphi через отправку сообщения `WM_CLOSE`.

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

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

:: Главная :: Процессы и Сервисы ::