Как вы определяете причину завершения работы Windows XPe в Delphi?

Question

Я правильно перехватываю сообщение о закрытии Windows WMQueryEndSession в Delphi 2009 с помощью следующей процедуры:

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 долларов.

Любые указатели будут с благодарностью!