Узнать о завершении работы 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;
|
|
