Текущий архив: 2003.01.30;
Скачать: CL | DM;
Вниз
Завершение работы ХР Найти похожие ветки
← →
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;
Возможно, у Вас другой случай, но циклы все же поищите.
С уважением, Алексей.
Страницы: 1 вся ветка
Текущий архив: 2003.01.30;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.021 c
