如何检测到windows的关闭并关闭只身程序(30分)

我想在我的程序中加入能检测到windows关闭,并在windows关闭之前关闭自己.

响应 WM_QUERYENDSESSION 消息<br>&nbsp;procedure WMQueryEndSession (var Message: TMessage); message WM_QUERYENDSESSION ; <br>如果返回0,表明不能关闭

默认情况为windows关闭,程序关闭<br>如果关机时禁止关闭程序,噢,楼上的很对.

谢谢各位，但我想知道如何检测到windows关闭,并在windows关闭之前关闭自己.<br>因为我的程序是监控程序，但它一运行windows就不能关闭了。<br>这是我不想看到的现象。<br>我想让我的程序运行是能让windows正常关闭。

&nbsp;TForm1 = class(TForm)<br>&nbsp; private<br>&nbsp; &nbsp; procedure WMQUERYENDSESSION(var msg:Tmessage);message WM_QUERYENDSESSION;<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>procedure TForm1.WMQUERYENDSESSION(var msg:Tmessage);<br>begin<br>&nbsp; &nbsp; showmessage('Windows要关机了!');<br>&nbsp; &nbsp; msg.Result := 0; &nbsp;//如果返回0,表明不能关闭 <br>end;<br>

多人接受答案了。