MaestroEvЧто ж мы сразу то или убить пользователя или убить процесс.

Ладно, упростим задачу. Выключить надо не резко, а в принципе. Ночь большая. Выключить и все. Дождаться всех незавершенных циклов если есть и выключить так как это бы сделал юзер последовательно закрывая все окошки и нажав <выход>.

Серверу утром нужен монопольный режим и у нас вся ночь на выход из программы.
Давайте опишем стратегию, а не реализацию. К реализации перейдем после понимания того что, когда и где надо делать.
Готового решения у меня нет, не было необходимости такую задачу решать. Ниже по какому бы пути я пошел решая эту задачу.

Без убивания процесса тут никак, но это крайняя мера, поэтому я бы так сделал:
первым запускается этот же EXE c параметрами


Новый сразу получает хэндл по lcPid и ждет заданное время, например 10 минут, в которые основной должен закрыться своими силами. По истечении времени убивает. Сразу получить хэндл важно, т.к. процесс может закрыться и через 10 минут может появиться другой с этим же ProcessId, т.е. убъем непонятно кого.

Например если вышел MessageBox то ничего ты с ним программно не сделаешь.
Надо еще проверить срабатывает ли вообще таймер когда активна не форма:
1. MessageBox()
2. при выборе файла GetFile()/LocFile() и т.п.
3. REPORT выведен на предпросмотр, открыт выбор принтера (если PROMPT используется в REPORT).

Теперь сам алгоритм закрывания:
Часть 1. Пробуем закрыть средствами проги
берем _screen.activeform или если нет такой первую попавщуюся из коллекции _vfp.forms()
1.1 проверяем наличие метода SilentRelease() - если есть запускаем, туда должен быть прописан код закрытия формы без задавания вопросов. иначе переходим к 1.2.
1.2. Ищем кнопку cmdCancel если есть делаем cmdCancel.Click() - но это в случае если кнопка "Отмена" всегда называется cmdCancel и никогда не задает вопросов с помощью MessageBox(). У меня обычно именно так. Иначе п. 1.3
1.3. вызываем Release() формы
за одно срабатывание таймера такое проделывать только с одной формой, т.к. по закрытию формы генерятся всякие сообщения, становятся в очередь и надо дать фоксу их обработать перед тем как переходить к следующей форме.

Еще надо как-то определять что открыт REPORT на предпросмотр, тут ничего не подскажу, не разбирался ни разу с этим вопросом. Закрыть репорт можно попробовать с помощью KEYBOARD "CTRL+W"

Часть 2. Закрытие таблиц.
переребираем все DATASESSION и в каждой делаем CLOSE DATA ALL.

ну и в конце


Тут возможно появление ошибок в Destroy() объектов которые существуют на этот момент.

PS Ну и писать лог всех действий таймера и все вызовы код из таймера обернуть в TRY ... CATCH

Jonny540Dima TНапример если вышел MessageBox то ничего ты с ним программно не сделаешь. А так:

Главное, чтобы messagebox был правильно настроен (нужная кнопка по умолчанию).
Тоже такая мысль появилась, правда после того как запостил. Что касается кнопки по умолчанию: MessageBox еще на кнопки "Д", "Н" и т.д. реагирует, буквы на кнопках подчеркнуты. Тут только возникает вопрос как из таймера определить что на экране MessageBox() висит? Ну и убедиться что сработает таймер в этот момент, а не будет ждать пока пользователь что-нибудь ответит.

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

Jonny540Dima TТут только возникает вопрос как из таймера определить что на экране MessageBox() висит?В этом все и дело. Пока не приходилось проверять, надо попробовать.
А вообще-то неплохо бы в программе предусмотреть, когда выдавать мессбокс, а когда нет.Dima TНу и убедиться что сработает таймер в этот момент в этот момент, а не будет ждать пока пользователь что-нибудь ответитТут проще - если "маячок" горит, значит пользователь уже ушел от нас и ничего он уже никогда никому не ответит


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

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

Jonny540Если неохота этим заниматься - то 14133592
Не всегда возможно. Если ты сторонний разработчик, то может появиться доминирующее мнение "это не мы криворукие, это разработчик прогу корявую написал". Особенно если местный админ забывает прогу закрывать и комп выключать.

XAndyJonny540Messagebox великолепно удаляется и без юзера

У Messagebox() есть параметр таймаут (как-бы нет смысла в висении его часами)

Есть такое, я сначала даже начал пользоваться, только потом выяснилось что при указании таймаута возникает нездоровый побочный эффект - если кликнуть мимо окошка Messagebox() то он уходит на задний план (за окно фокса) и прога выглядит зависшей. Можно конечно задать поверх всех окон (+4096 во втором параметре), тогда оно вылазит в центре экрана даже если окно самой проги скрыто под другими, что тоже не очень хорошо.
А без таймаута все нормально, окошко в центре окна фокса, за него не прячется и поверх других не лезет

Не знаю почему такая багофича у разработчиков фокса получилась, но моим пользователям это сильно не понравилось. Пришлось отказаться от ее использования.

Jonny540Dima TТвой "маячок" вообще бесполезен если за компом никого нет и ничего в проге не делается. Ты же исходишь из того что пользователь своей активностью
запустит проверку "маячка", а дальше отработает нужный тебе код. А тут нет пользователя.
А юзер и не нужен, если есть таймер. Messagebox великолепно удаляется и без юзера, только что проверил.
А "маячок" зажигается админом приложения и от юзера уже мало зависит, сохранится и завершится и без него :) 14133599
Во всяком случае у меня эта схема работает довольно давно без каких либо сложностей.

ЗЫ То, что коряво ее описал, это другой вопрос.
Тут ты опять от темы отходишь. Вопрос ведь стоит "как закрыть", а "не как определить момент закрытия". Мы с тобой о разных вещах говорим. Я о "как закрыть".
Пусть MaestroEv сам решает какой из вопросов его интересует.

PS Кстати про программное определение того что MessageBox() висит ты ничего не написал :)

Jonny540И, действительно, пусть ТС решает, а то он что-то молчит.
Спит он уже. У него часовой пояс Москва+6 часов :)

sg12Это не "багофича", а так задумано. Разумеется, если проверять в реальных кодах.
MSDN сам переводил или скопипастил у кого?

Ты проверь сначала что это работает, прежде чем сюда писать. Покажи что я должен написать чтобы не иметь обе проблемы:
1. если кликнуть в окно фокса мимо окошка Messagebox() то оно уходит на задний план (за окно фокса) и прога выглядит зависшей
2. окно Messagebox() не должно вылазить в центре экрана поверх всех окон если окно фокса скрыто под другими
т.е. поведение окна Messagebox() при вызове с указанием таймаута должно быть такое же как и при вызове его без указания таймаута.

sg12Попробуйте написать свой MESSAGEBOX(), под себя.
Достал. Я тебе уже говорил что не надо троллить в чужих топиках.

PS Не говори мне что я должен делать и я не скажу куда тебе идти. .