application.terminate (or halt)

[Fiery Fox]

Как успеть исполнить код до закрытия программы диспетчером?
Он, как я понимаю, обходит процедуры OnClose и OnCloseQuery формы.
Где записать код примерно такого содержания, что бы программа успела его выполнить? и реально ли это вобще?

last.Socket.SendText('COMClose');

[_-Re@l-_]

Он, как я понимаю, обходит процедуры OnClose и OnCloseQuery формы.

Не а. Перед тем, как explorer закроет вашу программку, процедуры Close и CloseQuery будут выполнены.

[Fiery Fox]

Даже если форма скрыта?
т.е

Application.ShowMainForm:=false; 
ShowWindow(application.Handle,SW_HIDE);

---
проверил, не пашет даже шоумесседж.
там идет какое то другое событие.
как бы экстренное завершение.

[veniside]

> Как успеть исполнить код до закрытия программы диспетчером?

если задача снимается через [End Process], то никак.

[Fiery Fox]

Сообщение от veniside

> Как успеть исполнить код до закрытия программы диспетчером?

если задача снимается через [End Process], то никак.

Да, через нее.
Какая то же комманда идет приложению, может есть способ?

[veniside]

Нет, на сколько я знаю. Там просто прерывается работа всех потоков и ввода/вывода процесса в том месте, где они были. В частности, ТСП сокет на удаленной стороне рано или поздно вылетит по ошибке 10053 или 10054.

Единственное, что можно — это запускать 2 процесса, и если один прибили, то второй за него отомстит ))

[Fiery Fox]

Если запущу 2 одинаковых, будет порт\соккет эррор.
Мне надо добиться того, что бы на стороне сервера не вылазила ошибка.
Прочел про хук процесса ZwTerminateProcess.
но как то это уже черезчур)

Судя по всему, единственный ок вариант будет блокировка диспетчера, пока не будет получен определенный сигнал со стороны сервера.

[veniside]

> Если запущу 2 одинаковых, будет порт\соккет эррор.

ну не так прямолинейно, конечно )

> Мне надо добиться того, что бы на стороне сервера не вылазила ошибка.

Сервер не ваш, что ли? Тогда нереально. Разве что на низком уровне послать правильно сформированый пакет, который закроет удаленный сокет.

> Прочел про хук процесса ZwTerminateProcess.
> вариант будет блокировка диспетчера

Может и вариант. А что делать, если сетевую карту задизейблят, например? Или сетевой кабель уборщица шваброй заденет? Или провайдер упадёт?

[Fiery Fox]

>>Сервер не ваш, что ли? Тогда нереально. Разве что на низком уровне послать правильно сформированый пакет, который закроет удаленный сокет.

мой, но при работе, всплывающие ошибки не всегда хорошо)

Сделал все блокировкой диспетчера.
Думаю, что прокатит)

А что делать, если сетевую карту задизейблят, например? Или сетевой кабель уборщица шваброй заденет? Или провайдер упадёт?

Ну. Тогда уже никак)

[ArtGrek]

мой, но при работе, всплывающие ошибки не всегда хорошо)

все ошибки можно придусматрети в ServerSocketsOnError

if errorkey = .. then правельно закрыть

FormDestroy не пробывали?