Завершить чужое приложение

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

PostMessage(FindWindow(nil, 'Заголовок окна'), WM_QUIT, 0, 0);

Here is the translation of the text into Russian:

Похоже, вы пытаетесь закрыть запущенное приложение с заголовком окна "Заголовок окна" с помощью Delphi или аналогичного языка программирования на основе Pascal.

Код, который вы предоставили, пытается отправить сообщение WM_QUIT в окно с указанным заголовком, что должно вызвать закрытие окна. Вот разбивка каждого шага:

1. FindWindow(nil, 'Заголовок окна'): эта функция ищет окно с заголовком "Заголовок окна". Первый аргумент (nil) означает, что поиск начинается на уровне рабочего стола.
2. PostMessage(...): эта функция отправляет сообщение в указанное окно.

Проблема заключается в том, что FindWindow возвращает HANDLE Окна (Handle of Window) вместо объекта TMainWindow или аналогичного, поэтому вы не можете использовать его напрямую с Delphi'с TForm или другими GUI-компонентами. Если ваше приложение использует формы, вам нужно найти ссылку на форму и затем вызвать ее метод Close.

Если это невозможно по каким-либо причинам, альтернативное решение может быть использование функции ShellExecute из Windows API для выполнения команды, которая закрывает приложение:

uses
  ShellApi;

procedure CloseApp;
var
  AppTitle: string = 'Заголовок окна';
begin
   // Найти имя исполняемого файла
  AppName := GetFileNameWithoutExtension(GetProcessPath(nil));

   // Создать команду для закрытия приложения
  Cmd := Format('%s /close', [AppName]);

   // Выполнить команду
  ShellExecute(0, 'open', PChar(Cmd), nil, nil, SW_SHOW);
end;

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

В статье рассматривается способ завершения чужого приложения с помощью функции PostMessage и FindWindow.

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

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

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