Завершение работы ХР

← →
Brat-2 (2003-01-21 14:06) [0]

Ув. Мастера.
Прописываю в автозагрузку ХР программу.
По завершению работы, Виндоуз высвечивает, что программа неотвечает на запросы.
Как сделать, чтоб она закрывалась молча вместе с Виндой.

← →
error 2k © (2003-01-21 14:30) [1]

Как мне кажется, если программа не отвечает на запросы - она висит. По идее, винда закрывает все проги сама.

← →
Smithson © (2003-01-21 14:34) [2]

В твикерах windows поставь галочку "Автоматически закрывать программы" и уменьши тайм-ауты для этого события (по умолчанию 5 и 20 секунд). Какая точка в реестре этому соответствует - не знаю.

← →
Reindeer Moss Eater (2003-01-21 14:42) [3]

Научи свою программу определять момент выгрузки ОС

← →
Brat-2 (2003-01-21 17:51) [4]

2 ерор: нет, прога не "висит".
2 Смитсон: мне нужно, чтобы это все выполнялось автоматически.
2 RME: Как можно это осуществить?

← →
Stager (2003-01-21 23:04) [5]

Есть следующее подозрение:

1. Ваша программа выполняет некий бесконечный цикл. Например:
procedure TForm1.FormCreate(Sender: TObject); begin repeat Application.ProcessMessages; Sleep(50); {что-нибудь еще} until False;
end;

По завершении работы система посылает ей команду на закрытие, но как же она закроется, когда из цикла нет выхода?

Вариант решения №1 (лень пробовать, но может сработать):
procedure TForm1.FormCreate(Sender: TObject); begin repeat Application.ProcessMessages; Sleep(50); {что-нибудь еще} until Application.Terminated; end;

Вариант решения №2(чуть более "в лоб"):
var TerminatePrg: boolean = False; procedure TForm1.FormCreate(Sender: TObject); begin repeat Application.ProcessMessages; Sleep(50); {что-нибудь еще} until TerminatePrg; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := True; TerminatePrg := True; end;

Возможно, у Вас другой случай, но циклы все же поищите.

С уважением, Алексей.

Завершение работы ХР Найти похожие ветки