如何在Delphi中检测Windows XPe关闭原因？

Question

我正在使用以下过程正确拦截Delphi 2009中的Windows关闭消息 WMQueryEndSession ：

procedure TMyForm.WMQueryEndSession(var msg: TMessage);

本文建议我可以通过检查邮件的 LParam 来区分常规关机和注销。

http://msdn.microsoft.com/en-us/library/windows/desktop/aa376890%28v=vs.85%29.aspx

更新：

我正在开发一个在 Windows XP Embedded 上运行的应用程序，而在我的情况下， LParam 每次都是0。

如果我在Windows 7或Windows XP Home下测试我的应用程序，那么我得到预期的$ 80000000。

任何指针都将非常感谢！