Программно закрыть стороннее приложение

@KMSNasgool · Регистрация: 17.12.2013

Студворк — интернет-сервис помощи студентам

В проекте 2 приложения.
Обмен данными между ними организован средствами TIdTCPServer и TIdTCPClient.
Приложение с сервером скрыто от пользователя.
Запускаются они одновременно: при запуске приложения с клиентом вызывается

Delphi
1
WinExec('<сервер>.exe', SW_SHOWNORMAL);

При закрытии окна приложения останавливаются все потоки, и серверу отправляется команда остановиться. Видимое пользователю приложение завершается нормально, а вот скрытое не хочет.

Код в клиенте:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm_Main.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
  I: Integer;
begin
  CanClose := MessageBox(
      Handle,
      PChar('Вы точно хотите закрыть программу'),
      PChar('Внимание!'),
      MB_YESNO + MB_ICONWARNING)
      = idYes;
  if CanClose then begin
 
    // Тут высвобождаю ресурсы 
 
    IdTCPClient_Main.Connect;
    IdTCPClient_Main.SendCmd('close');
    IdTCPClient_Main.Disconnect;
  end;

На сервере заполнена коллекция CommandHandlers. Все команды обрабатываются отлично.
Код сервера:

Delphi
1
2
3
4
5
6
7
8
procedure TForm2.IdTCPServer_MainTIdCommandHandler_CloseCommand(
  ASender: TIdCommand);
begin
  ASender.SendReply;
  IdTCPServer_Main.Active := False;
  ShowMessage('Команда закрыться получена');
  Application.Terminate;
end;

Сообщение вставил для отладки, оно на экран выводится, т.е. обработчик команды срабатывает. Но закрываться приложение и не думает.

@krapotkin · 24.08.2014, 08:43

Application.Terminate как и Thread.Terminate само не делает ничего, только устанавливает флаг Terminated:=true

Главный цикл обычного приложения (Application.Run; в файле .dpr ) все время проверяет этот флаг, и дает команду Close. Посмотрите по тексту.
В серверных приложениях обычно есть рабочий поток, отличный от главного, который крутится в своем бесконечном цикле и выполняет разные команды.
Поэтому проверять нужно, получил ли главный поток команду закрыться, и при закрытии главного (OnClose, OnDestroy) загасить все рабочие. TCPServer.Disconnect и т.п. вещи.

@KMSNasgool · 24.08.2014, 08:44 **[ТС]**

Сделал дополнительную проверку. На форме сервера выставил кнопку и прописал в обработчике:

Delphi
1
Application.Terminate;

Все работает. А вот из обработчика OnCommand не хочет.

@krapotkin · 24.08.2014, 09:09

скорее, тут нужно выложить сервер целиком, чтобы не гадать

@KMSNasgool · 24.08.2014, 10:00 **[ТС]**

krapotkin, я пришел примерно к такому же выводу. Из потока IdTCPServer не передается сообщение о закрытии приложения. Решил проблему по другому: изменил команду на сервере с закрытия на getwnd.
Сервер в ответ на эту команду посылает хендл своего окна. А клиентская программа посылает WM_CLOSE в PostMessage. Так все работает.

Вопрос можно закрыть.

Новые блоги и статьи Все статьи Все блоги /
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	24.08.2014, 08:43
	Application.Terminate как и Thread.Terminate само не делает ничего, только устанавливает флаг Terminated:=true Главный цикл обычного приложения (Application.Run; в файле .dpr ) все время проверяет этот флаг, и дает команду Close. Посмотрите по тексту. В серверных приложениях обычно есть рабочий поток, отличный от главного, который крутится в своем бесконечном цикле и выполняет разные команды. Поэтому проверять нужно, получил ли главный поток команду закрыться, и при закрытии главного (OnClose, OnDestroy) загасить все рабочие. TCPServer.Disconnect и т.п. вещи. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	24.08.2014, 09:09
	скорее, тут нужно выложить сервер целиком, чтобы не гадать 0

@KMSNasgool 61 / 51 / 25 Регистрация: 17.12.2013 Сообщений: 247
	24.08.2014, 10:00 [ТС]
	krapotkin, я пришел примерно к такому же выводу. Из потока IdTCPServer не передается сообщение о закрытии приложения. Решил проблему по другому: изменил команду на сервере с закрытия на getwnd. Сервер в ответ на эту команду посылает хендл своего окна. А клиентская программа посылает WM_CLOSE в PostMessage. Так все работает. Вопрос можно закрыть. 0