Detecting Windows Shutdown

最新推荐文章于 2024-01-07 11:32:53 发布

原创最新推荐文章于 2024-01-07 11:32:53 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #application #session

DELPHI编程专栏收录该内容

71 篇文章

订阅专栏

博客可能围绕Windows系统下的应用会话展开，但内容缺失，推测会涉及应用会话的原理、特点、使用场景等信息技术相关内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

You can use the following procedure 
to detect if Windows is shutting 
down. If your application needs to 
save data before allowing the 
shutdown to continue you can do that,
then allow Windows to shutdown 
normally.

procedure TfrmMain.WMQueryEndSession(var Message : 
                                 TWMQueryEndSession);
begin

 // Let the inherited message handler respond first
 inherited;

 if DataHasChanged then begin
    MessageBeep(MB_ICONQUESTION);
    case MessageDlg('The current Windows 
           session is ending.  Save league changes?',
           mtConfirmation, [mbYes,mbNo,mbCancel],0) of
    mrYes    : begin
                //Your data-saving code or method 
                //call goes here
                Message.Result := 1;
               end;
    mrNo     : Message.Result := 1;
    mrCancel : Message.Result := 0;
      end; {case} end
   else
      Message.Result := 1;
end;