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

Оформил: DeeCo

*****English*****

The WM_QUERYENDSESSION message is sent to all applications when the user chooses to end the session or when an application calls the ExitWindows function.
If any application returns zero, the session is not ended. The system stops sending WM_QUERYENDSESSION messages as soon as one application returns zero.
After processing this message, the system sends the WM_ENDSESSION message with the wParam parameter set to the results of the WM_QUERYENDSESSION message.

*****Deutsch*****

Windows sendet die WM_QUERYENDSESSION Nachricht an alle laufenden Anwendungen und wartet auf deren Antwort.
Wenn irgendeine Anwendungen 0 zurьckgibt endet die Session nicht ansonsten sendet Windows eine WM_ENDSESSION Nachricht an alle Anwendungen.
Jede Anwendung, die darauf mit TRUE antwortet, kann jederzeit von Windows beendet werden.

Windows NT/2000/XP: When an application returns TRUE for this message, it receives the WM_ENDSESSION message and it is terminated, regardless of how the other applications respond to the WM_QUERYENDSESSION message.

Windows 95/98/Me: After all applications return TRUE for this message, they receive the WM_ENDSESSION and they are terminated.

 private
   procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
 end;

 Implementation

 procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
 begin
   if MessageDlg('Close Windows now/ Windows beenden?',
                             mtConfirmation,
                             [mbYes,mbNo], 0) = mrNo then
       Msg.Result := 0
    else
       Msg.Result := 1;
 end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 163 • TDictionary Custom Sort 3 338 • Fast Watermark Sources 3 091 • 3D Designer 4 848 • Sik Screen Capture 3 344 • Patch Maker 3 553 • Айболит (remote control) 3 659 • ListBox Drag & Drop 3 015 • Доска для игры Реверси 81 707 • Графические эффекты 3 945 • Рисование по маске 3 249 • Перетаскивание изображений 2 629 • Canvas Drawing 2 752 • Рисование Луны 2 581 • Поворот изображения 2 190 • Рисование стержней 2 168 • Paint on Shape 1 568 • Генератор кроссвордов 2 236 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 231 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 216 • Генератор лабиринта 1 548 • Проверка числового ввода 1 366 • HEX View 1 497 • Физический маятник 1 358

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

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