如何判断程序接收到的是 WM_QueryEndSession 消息?

响应TApplication.OnMessage，你可以直接对其赋值，也可以利用TApplicationEvents组件（如果是Delphi5版本以上）中的OnMessage事件。
注意不要设置Handled的值，或让它为False。如果接收到了WM_QueryEndSession，可以对一个Form中的标志赋值，然后在FormCloseQuery中判断。此法只是猜想，尚未试验过，特此抱歉。