БОЛЬШОЙ FAQ ПО DELPHI



Узнать о завершении работы Windows


MCSE - это такой специалист, который обучен с улыбкой на лице и в дружественных выражениях всякий раз авторитетно разъяснять вам, почему нужно переустанавливать вашу операционную систему.

Если текст в Memo1 был изменен, то программа не разрешает завершения сеанса Windows.


 ...
 private
   procedure WMQueryEndSession(var Msg: TWMQueryEndSession);
   message WM_QUERYENDSESSION;
 ...
 procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
 begin
   Msg.Result := integer(not Memo1.Modified);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ