Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Определить причну закрытия программы
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Бобо Бобо вне форума
Member
 
Сообщений: 387
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.12.2011
Question Определить причну закрытия программы - 02.11.2016, 00:46

Как определить причину закрытия программы: завершение работы Windows или снятие в диспетчере задач?
Ответить с цитированием
  (#2 (permalink)) Старый
Бобо Бобо вне форума
Member
 
Сообщений: 387
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 13.12.2011
По умолчанию 02.11.2016, 20:13

"Проблема решена, но осадочек остался"

delphi Код:
procedure TForm1.ApplicationProperties1QueryEndSession(var Cancel: Boolean);

var
f:textfile;
s:string;
begin

// exw:=true;

s:=#13#10+'WINDOWS'+#13#10;

AssignFile(f,'napp.txt');
if fileexists('napp.txt')=false then rewrite(f)
else append(f);

write(f,s);
closefile(f);

end;

Работает, и вывод в файл происходит до вывода из FormClose

Но такой вариант был бы более подходящим
delphi Код:
procedure TForm1.ApplicationProperties1QueryEndSession(var Cancel: Boolean);
begin
exw:=true;
end;


procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

var
s:string;

begin

if exw=true then s:=s+'WINDOWS ';
// дальнейшее формирование строки s и вывод в файл

end;

Слово 'WINDOWS ' в строку почему-то не добавляется...
Так же происходит и при использовании процедуры WMQueryEndSession
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как определить причину закрытия программы операционной системой? kolymchanin Софт и программы 2 04.02.2015 01:44
Написание программы CD-привод для открытия и закрытия привода asgalex Visual C++ 4 09.07.2006 20:40
Как определить главный файл в CHM из программы на Delphi hpv Delphi 0 21.06.2006 22:45
Error во время закрытия программы bacho_sun C++ Builder 4 13.02.2006 10:47
Работа программы после закрытия главного окна Paha Visual C++ 5 27.12.2005 05:26
Написание программы для диспетчера задач для закрытия программ Grechukhin Visual C++ 2 26.04.2005 18:21
Как определить версию программы Icer Visual C++ 1 09.01.2004 10:26
Почему после закрытия программы она все еще работает Vladimir the Red Sunny Visual C++ 9 06.12.2003 15:12
Как сделать чтобы при закрытия своей программы не закрывался word Sysdba C++ Builder 0 22.05.2003 02:03
Почему после закрытия программы файл с данными становится с нулевой длиной файла Nine Visual C++ 8 25.04.2003 16:05
Как определить размер массива при исполнении программы Anonymous С/С++ 3 10.02.2003 19:11



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов