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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 518 • TDictionary Custom Sort 6 537 • Fast Watermark Sources 6 325 • 3D Designer 9 275 • Sik Screen Capture 6 658 • Patch Maker 7 034 • Айболит (remote control) 7 048 • ListBox Drag & Drop 5 917 • Доска для игры Реверси 97 322 • Графические эффекты 7 248 • Рисование по маске 6 548 • Перетаскивание изображений 5 411 • Canvas Drawing 5 785 • Рисование Луны 5 491 • Поворот изображения 5 019 • Рисование стержней 3 575 • Paint on Shape 2 833 • Генератор кроссвордов 3 711 • Головоломка Paletto 2 988 • Теорема Монжа об окружностях 3 795 • Пазл Numbrix 2 499 • Заборы и коммивояжеры 3 183 • Игра HIP 2 149 • Игра Go (Го) 2 086 • Симулятор лифта 2 461 • Программа укладки плитки 2 129 • Генератор лабиринта 2 603 • Проверка числового ввода 2 280 • HEX View 2 611 • Физический маятник 2 224

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

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