delphi处理消息的几种方式

第一种：自定义处理单条消息

1. unit Unit2;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs;
6. type
7. TForm2 = class(TForm)
8. procedure FormCreate(Sender: TObject);
9. procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
10. private
11. { Private declarations }
12. //直接用 TWMQueryEndSession
13. procedure EndMsg(var nMsg: TWMQueryEndSession); Message WM_QUERYENDSESSION;
14. //也可以用这种
15. //procedure EndMsg(var nMsg: TMessage); Message WM_QUERYENDSESSION;
16. public
17. { Public declarations }
18. end;
19. var
20. Form2: TForm2;
21. implementation
22. {$R *.dfm}
23. //收到WM_QUERYENDSESSION消息后就会触发这个过程
24. procedure TForm2.EndMsg(var nMsg: TWMQueryEndSession);
25. begin
26. //0 可以取消关机操作
27. nMsg.Result := 1;
28. ShowMessage('注销、重启、关机');
29. end;
30. end.

第二种：利用Application.OnMessage处理消息

1. unit Unit2;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs;
6. type
7. TForm2 = class(TForm)
8. procedure FormCreate(Sender: TObject);
9. private
10. { Private declarations }
11. public
12. { Public declarations }
13. procedure OnMsg(var nMsg: tagMSG; var nHandled: Boolean);
14. end;
15. var
16. Form2: TForm2;
17. implementation
18. {$R *.dfm}
19. //消息处理过程
20. procedure TForm2.OnMsg(var nMsg: tagMSG; var nHandled: Boolean);
21. begin
22. //处理……
23. //这里会收到各种消息……经测试无法收到WM_QUERYENDSESSION消息
24. end;
25. procedure TForm2.FormCreate(Sender: TObject);
26. begin
27. Application.OnMessage := OnMsg;
28. end;
29. end.

第三种：自己处理窗口函数，个人感觉这是最强大的，可以拦截一切发往窗口的消息！

1. unit Unit2;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs;
6. type
7. TForm2 = class(TForm)
8. procedure FormCreate(Sender: TObject);
9. private
10. { Private declarations }
11. public
12. { Public declarations }
13. procedure WndProc(var nMsg: TMessage); override;
14. end;
15. var
16. Form2: TForm2;
17. implementation
18. {$R *.dfm}
19. procedure TForm2.WndProc(var nMsg: TMessage);
20. begin
21. //这里能收到发往窗口的所有消息
22. inherited; // 注意这句不能少
23. if nMsg.Msg = WM_QUERYENDSESSION then
24. begin
25. if nMsg.LParam = 0 then
26. ShowMessage('关机或重启')
27. else
28. ShowMessage('注销');
29. end;
30. end;
31. end.