Можно ли определить завершение процесса?

[BlackStar]

Доброго времени суток, уважаемые коллеги!

У меня имеется программа, в которой есть цикл ожидания события еще до основного конструктора:

Код:

while(1)
{
  DWORD dwRet = WaitForSingleObject(hSync, 0);
  if (dwRet == WAIT_OBJECT_0)
  {
    ResetEvent(hSync);
    break;
  }
  Sleep(200);
}

try
{
  Application->Initialize();
  Application->CreateForm(__classid(TForm1), &Form1);
}

Всё работает так как и задумывалось, но появилась проблема - если программа находится в цикле ожидания и в этот момент попытаться перезагрузить компьютер, то появится окошко с сообщением, что процесс не может завершиться самостоятельно. Очень нужно избежать этой ситуации, но пока никаких адекватных идей не нашлось.
Скажите, есть ли какая-то возможность на этом этапе отследить событие OnClose или сделать что-то еще, чтобы при перезагрузке система самостоятельно завершала процесс?

[BlackStar]

Прошу прощения за беспокойство. Проблема решена:

Код:

while(1)
{
  DWORD dwRet = WaitForSingleObject(hSync, 0);
  if (dwRet == WAIT_OBJECT_0)
  {
    ResetEvent(hSync);
    break;
  }
  Sleep(200);
  MSG msg;
  if( PeekMessage(&msg, NULL, WM_QUERYENDSESSION, WM_QUERYENDSESSION, PM_REMOVE) )
    return 0;
  if( PeekMessage(&msg, NULL, WM_ENDSESSION, WM_ENDSESSION, PM_REMOVE) )
    return 0;
}

[BlackStar]

Прикольно. В билдере такой код работает, а в делфи - нет.
Может я не правильно что-то делаю? Спасите помогите.
Вот код на паскале:

Код:

var
  Msg: TMsg;
.....

while true do
  begin

    if PeekMessage(Msg, 0, WM_QUERYENDSESSION, WM_QUERYENDSESSION, PM_REMOVE) = true then
      MessageBox(0, 'window message', '', MB_OK);

    if PeekMessage(Msg, 0, WM_ENDSESSION, WM_ENDSESSION, PM_REMOVE) = true then
      MessageBox(0, 'window message', '', MB_OK);

    Sleep(1000);
  end;

[x77]

первым параметром идёт указатель на структуру, попробуй ..(@Msg, ...

[BlackStar]

Проблема снова решена   Оказывается, что сообщения получает только основной поток, а я поместил этот фрагмент в дочерний.