同意 YZSHI 楼上的楼上。呵呵在程序中添加如下代码:<br>procedure winexit(var msg:Tmessage);<br>message WM_QUERYENDSESSION;<br><br>procedure TForm1.winexit(var msg: Tmessage);<br><br>begin<br>if Application.MessageBox('系统即将被关闭,确认吗?','提示',mb_iconQuestion+mb_yesno)=idYes then<br> msg.Result:=1<br> else begin<br> msg.Result:=0;<br> end;<br>end;<br>即可处理你的事件。如先保存数据。。。。<br>