🚀 go-pugleaf

More info:

My original code which has not changed in a LONG time and used to work 
fine:

void __fastcall TFormMain::wmQueryEndSession(TMessage& Message)
{
  Message.Result = 1;
  SaveFile();
  CloseFile();
  Application->Terminate();
}

My fake shutdown app is just a form with a button and a memo.  The 
button press event looks like this:

void __fastcall TForm1::ButtonQueryEndSessionClick(TObject *Sender)
{
  Memo->Lines->Append("Send WM_QueryEndSession Message:");
  WPARAM wParam = 0;
  LPARAM lParam = 0;
  HWND H = FindWindow("TFormMain",NULL);
  if(H)
  {
    Memo->Lines->Append("- Application window handle = " + IntToStr(H));
    if (SendMessage(H,WM_QUERYENDSESSION,wParam,lParam))
      Memo->Lines->Append("- Application responded OK to close.");
    else
      Memo->Lines->Append("- Application responded NOT OK to close.");
    Memo->Lines->Append("- wParam = " + IntToStr(wParam));
    Memo->Lines->Append("- lParam = " + IntToStr(lParam));
  }
  else
    Memo->Lines->Append("- Application window handle NOT FOUND!");
  Memo->Lines->Append("----------------------------------");
}

The send message return is true, and both wParam and lParam are 0.  My 
application is saving and closing it's files.

OK, so why doesn't windows shutdown?