Программа Delphi предотвращает правильное закрытие окон

Question

У меня есть небольшая программа, которая просто читает текстовый файл в дневнике и отображает его в записке - это - нет кнопок, которые вы дважды щелкаете по форме, чтобы закрыть ее, если вы хотите, чтобы она исчезла , Когда он был запущен (даже если вы его закроете), Windows XP достигает значения «Windows выключается», т.е. после «Сохранение настроек пользователя» и т. д., а затем он зависает. Я изучил код, который мало чем отличается от других написанных мной программ, которые были намного сложнее, но не видят ничего плохого. Например, процедура закрытия содержит application.terminate, который (я думаю) должен очистить все, что угодно, из памяти. Любые идеи, поскольку я, кажется, исчерпал их?

Answer 1

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

Есть ли у вашего приложения проблемы с закрытием или он зависает при завершении работы Windows?

• Вы пытались поставить точку останова на application.Terminate? И это дает дополнительную информацию.
• Из основной формы вы можете использовать Close, а не Application.Terminate.

Answer 2

Приложения могут блокировать выключение, если они используют процессорное время, хотя «современная» ОС, такая как Vista и W7, должна отображать диалоговое окно с сообщением об этом через определенный период и предлагая вам отказаться от приложения. Убедитесь, что ваше приложение показывает 0% CPU, когда он простаивает, глядя в диспетчер задач и просматривая «процессы». Bri

Answer 3

Основываясь на том, что вы описали, программа должна иметь одну строку кода, добавленного программистом, который должен вызвать Memo1.Lines.LoadFromFile. Вот что это значит, когда вы говорите: «Вот и все».

Эта программа даже не нужна «закрыть рутину». (Я предполагаю, что вы имеете в виду событие формы OnClose.) Когда основная форма закрывается, приложение автоматически завершается. Так работают все программы Delphi. Если вы вкладываете больше в это, вы делаете слишком много.

Answer 4

Следующий код реагирует на сообщение о закрытии окна и закрывает программу.

TForm1 = class(TForm) 
    ... 
private 
    procedure WMEndSession(var Message: TWMEndSession); message WM_ENDSESSION; 
    ... 
end; 

procedure TForm1.WMEndSession(var Message: TWMEndSession); 
begin 
    close; 
end;