有時(shí)候程序在運(yùn)行當(dāng)中，不允許別的程序或人為的關(guān)閉計(jì)算機(jī)，除非應(yīng)用程序知道windows將要退出，其實(shí)這樣很簡(jiǎn)單，我們都知道系統(tǒng)將要關(guān)閉時(shí)，會(huì)向每一個(gè)程序發(fā)送WM_QUERYENDSESSION這條關(guān)機(jī)消息，只要我們的程序接受到此消息后，做恰當(dāng)?shù)奶幚砑纯掏瓿晌覀兯�需要的�?br>

    處理windows消息有好幾種，在這里我們利用Application的OnMessage事件，建立響應(yīng)該事件的過程即可！如下面的例子：
unit unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    procedure AppMessageHandler(var Msg:TMsg; var Handled:Boolean);//聲明系統(tǒng)處理消息過程，響應(yīng)Application的OnMessage事件的過程必須為TMessageEvent類型；
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AppMessageHandler(var Msg:TMsg; var Handled:Boolean);
begin
    if Msg.message=WM_QueryEndSession then//如果收到的消息為關(guān)閉計(jì)算機(jī)的消息時(shí)，進(jìn)行特別處理，因?yàn)橹皇且粋�(gè)例子，我只寫出彈出對(duì)話框，大家可以根據(jù)自己程序的需要進(jìn)行響應(yīng)的處理；
       begin
         if messagedlg('shutdown?',mtconfirmation,mbyesnocancel,0)= mryes then
            Handled:=true
         else
            Handled:=false;
       end;
end;
end.
最后在程序的DPR文件中，創(chuàng)建窗體之后但在調(diào)用Application.Run前加入
Application.OnMessage:=Form1.AppMessageHandler;即可！