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

Недавно добавленные исходники
• TDictionary Custom Sort 515 • Fast Watermark Sources 878 • 3D Designer 1 809 • Sik Screen Capture 1 458 • Patch Maker 1 466 • Айболит (remote control) 1 390 • ListBox Drag & Drop 1 164 • Доска для игры Реверси 21 339 • Графические эффекты 1 339 • Рисование по маске 1 278 • Перетаскивание изображений 1 091 • Canvas Drawing 965 • Рисование Луны 803 • Поворот изображения 758 • Рисование стержней 804 • Paint on Shape 489 • Генератор кроссвордов 750 • Головоломка Paletto 661 • Теорема Монжа об окружностях 843 • Пазл Numbrix 609 • Заборы и коммивояжеры 835 • Игра HIP 551 • Игра Go (Го) 523 • Симулятор лифта 544 • Программа укладки плитки 505 • Генератор лабиринта 561 • Проверка числового ввода 521 • HEX View 596 • Физический маятник 522 • Задача коммивояжера 556

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

Похожие по теме исходники