Mega Code Archive

 

Categories / Delphi / System

 

How to prevent Windows Shut Down

Title: How to prevent Windows Shut Down 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;