Как завершить программу при выходе из системы или перезагрузке? - Delphi - Ответ 9859985

@useruser · Регистрация: 29.06.2015

Author24 — интернет-сервис помощи студентам

Написал программу, которая "сидит" в трее. Просто "сидит" и ничего не делает - т.е. не нужно отслеживать её действия и посылать сообщения винде о ожидании... Просто нужно закрыть форму и всё.

Как завершить программу (закрыть форму) при завершении работы, смене пользователя и перезагрузке?

В инете нашел следущее
---------
Очень часто мы сталкиваемся с проблемой, когда наша программа будучи запущенная в фоне и/или свёрнутая, например, в панель задач должна что-то сделать, когда Windows выключается, перезагружается или просто меняется пользователь.
Если мы не будем отслеживать такую ситуацию, то в худшем случае у нас могут просто потеряться какие-либо данные или Windows просто не сможет выполнить перезагрузку до конца. Ей будет мешать наша программа. Не нужно думать, что Windows перед перезагрузкой рассылает приложениям сообщения о закрытии, так чтобы у тех выпаолнились обработчкики TForm.onCloseQuery/onClose.
ОС Windows отсылает перед перезагрузкой, выключением или сменой пользователя сообщения WM_QUERYENDSESSION, а потом по его успешному завершению WM_ENDSESSION. Наше приложение должно поймать эти сообщения и отреагировать так чтобы дать понять, что мы согласны перезагружаться. В частности на сообщение WM_QUERYENDSESSION мы должны вернуть не 0:

Практически мы уже здесь можем завершить свою программу.
В случае если те действия, которые выполняются при наступлении перезагрузки не велики по величине времени их выполнения, можно не обрабатывать WM_QUERYENDSESSION, а обойтись просто сообещением WM_ENDSESSION. В параметре WParam этого сообщения поступает как раз тот результат, который мы вернули (или не вернули) из сообщения WM_QUERYENDSESSION:
-------
И код

Delphi

protected procedure IsWindowsShutDown(var Msg: TMessage);WM_ENDSESSION; 
.. 
procedure TForm1.IsWindowsShutDown(var Msg: TMessage); 
begin  
  inherited; 
  if Msg.WParam = 1 then MainForm.Close; // выгружаем приложение  
End;

При компиляции ругается на WM_ENDSESSION; И правда, по синтаксису там разве должно что то быть?
Убрав WM_ENDSESSION; все компилируется, но код не выполняет своей функции - т.е. моя форма не закрывается автоматически.

Вернуться к обсуждению:
Как завершить программу при выходе из системы или перезагрузке? Delphi

Следующий ответ

Другие темы раздела
Delphi Запись в Журнал Windows Подскажите пожалуйста как в Delphi писать в журнал Windows. На C# я это делаю так: EventLog Ev = new EventLog(); Ev.Source = "Program"; Ev.Log = ""; Ev.WriteEntry("Hello"); https://www.cyberforum.ru/ delphi-beginners/ thread1869834.html	ShellExecute не открывает файлы Delphi Здравствуйте! Для открытия файла использую ShellExecute. Код: ShellExecute(Handle, 'nil', PChar(ExtractFilePath(Application.ExeName)+(s)+(Memo01.Text)),'', nil, SW_SHOW); Получается путь к файлу: D:\Desktop\Project\материалы\1_File\10.wmv При действии просто ничего не происходит, пробовал путь указать одной строкой, но результат одинаков в обоих случаях.
Delphi В матрице размерности 4X4 вычислить сумму произведений элементов каждой строки В матрице размерности 4X4 вычислить сумму произведений элементов каждой строки. Для Лазарус или Делпфи https://www.cyberforum.ru/ delphi-beginners/ thread1869420.html	Delphi Метод пузырька https://www.cyberforum.ru/ delphi-beginners/ thread1869357.html Добрый вечер, уважаемые программисты.Хочу обратиться к вам за помощью.Требуется сформировать массив из максимальных элементом матриц и отсортировать этот массив по возрастанию. Я вроде как большую часть программы написал , а с того момента как начинается процедура сортировки массива , не знаю как сделать , чтобы программа видела его.И из-за этого не могу понять как именно выполнить это методом...
Delphi Онлайн изменения кода элемента в WebBrowser Здравствуйте, возможно ли как в любом браузере посмотреть код элемента, только в браузере delphi и изменить его онлайн? Точнее удалить некую часть, но чтобы это не помешало работе сайта? В 2-х словах у меня на странице webbrowser есть recaptcha v2, как рассказывает нам инструкция rucaptcha https://rucaptcha.com/recaptchav2_rus_instruction (не реклама), нужно удалить часть кода чтобы вылезло поле...	Delphi Надо создать программу на зачет Помогите создать программку через console application в delphi7. Очень надо это на зачет. 1)Дан массив А15 Вычислить сумму и количество отрицательных элементов массива. 2)Дан массив А16 Вычислить произведение и количество элементов массива больших 7. 3)дан массив А16 вывести значения и номера элементов массива кратных 3. 4)дан массив А16 номер максимального элемента массива среди нецелых... https://www.cyberforum.ru/ delphi-beginners/ thread1869298.html
Delphi Кольцевой список Прошу помочь с удалением последнего элемента в списке procedure TSpisok.DelElem(some:byte); var T,P,G,O:TPyramid; i1,i2:byte; bol:boolean; begin t:=f; g:=t; https://www.cyberforum.ru/ delphi-beginners/ thread1869282.html	StringGrid 900x900 Delphi Привет друг! Интересует вопрос, как сделать разметку StringGrid как в Excel? Допустим есть форма, на ней StringGrid с размером 900x900. На FormCreate пишем такое чудо для Row: procedure TForm1.FormCreate(Sender: TObject); var i,k,j:Integer; begin for i:=1 to strngrd1.RowCount-1 do begin strngrd1.Cells:=IntToStr(i); end;
Delphi распределить места по баллу в delphi 7 https://www.cyberforum.ru/ delphi-beginners/ thread1869211.html Срочно помогите) Задача: 5 спортсменов, 3 жюри (жюри выдают баллы от 1 до 5). Надо автоматом распределить места. Допустим Иванов 10 баллов Сидоров 7 баллов Петров 11 баллов Дураков 4 балла Козлов 6 балла Программа должно дать им места: Петров 1 место Иванов 2 место....итд	Delphi Module Header Добрый день, помоги те разобраться пожалуйста Ошибка Module header is missing or incorrect После создания новой формы произошло Проект прикладываю https://www.cyberforum.ru/ delphi-beginners/ thread1869210.html
Delphi Записи. 5 спортсменов, 3 члена жюри (жюри выдают баллы от 1 до 5). Срочно помогите) Задача: 5 спортсменов, 3 жюри (жюри выдают баллы от 1 до 5). Надо автоматом распределить места. Допустим Иванов 10 баллов Сидоров 7 баллов Петров 11 баллов Дураков 4 балла Козлов 6 балла Программа должно дать им места: Петров 1 место Иванов 2 место....итд	Delphi Найти все простые числа, принадлежащие заданному диапазону чисел Создать приложение Delphi, вычисляющее простые числа в диапазоне от N1 до N2, используя «решето Эратосфена». составить программу для зачета с ехе https://www.cyberforum.ru/ delphi-beginners/ thread1869112.html

	06.12.2016, 12:32