Узнать о завершении работы Windows | ОГЛАВЛЕНИЕ    HOME  MAIL |
Если текст в 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; email: delphi4all@narod.ru |