最近做的專案中需要攔截系統關機，因為我在FormCloseQuery中總是把CanClose設為False，不攔截關機的話直接導致系統中的關機、重啟、登出都失效了！導致使用者不能關機！(提示使用者說要關機的話直接按電源^^)這樣肯定是不行的！

要完成這個功能只需要攔截到WM_QUERYENDSESSION訊息就萬事Ok!

關鍵在於怎麼在Delphi下攔截WM_QUERYENDSESSION訊息呢？Delphi也是很強悍的，當然不用直接去SetWindowLong了。

好了不廢話了，部落格的第一篇文章就開始啦！

首先介紹一下Delphi中攔截訊息的幾種做法

第一種：自定義處理單條訊息

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private { Private declarations } //直接用 TWMQueryEndSession procedure EndMsg(var nMsg: TWMQueryEndSession); Message WM_QUERYENDSESSION; //也可以用這種 //procedure EndMsg(var nMsg: TMessage); Message WM_QUERYENDSESSION; public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} //收到WM_QUERYENDSESSION訊息後就會觸發這個過程 procedure TForm2.EndMsg(var nMsg: TWMQueryEndSession); begin //0 可以取消關機操作 nMsg.Result := 1; ShowMessage('登出、重啟、關機'); end; end.

第二種：利用Application.OnMessage處理訊息

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure OnMsg(var nMsg: tagMSG; var nHandled: Boolean); end; var Form2: TForm2; implementation {$R *.dfm} //訊息處理過程 procedure TForm2.OnMsg(var nMsg: tagMSG; var nHandled: Boolean); begin //處理…… //這裡會收到各種訊息……經測試無法收到WM_QUERYENDSESSION訊息 end; procedure TForm2.FormCreate(Sender: TObject); begin Application.OnMessage := OnMsg; end; end.

第三種：自己處理視窗函式，個人感覺這是最強大的，可以攔截一切發往視窗的訊息！

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure WndProc(var nMsg: TMessage); override; end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.WndProc(var nMsg: TMessage); begin //這裡能收到發往視窗的所有訊息 inherited; // 注意這句不能少 if nMsg.Msg = WM_QUERYENDSESSION then begin if nMsg.LParam = 0 then ShowMessage('關機或重啟') else ShowMessage('登出'); end; end; end.

經過再次測試，只有Application.OnMessage不能攔截WM_QUERYENDSESSION訊息！還有，有時候Delphi的一些控制元件也會導致不能正確攔截，今天測試了一晚上了。。--|，總算解決了這個問題！！

好了，本文到此結束。由於在做這個功能的時候遇到了一些低階問題^^，所以馬上在部落格上記錄一下，2點了啊！睡覺去，明天爭取把專案全部完成！加油！！！