🚀 go-pugleaf

Remy, thanks for responding.

I am not using the Execute handler. Here is the code widdled down to the
smallest reproducable example:

void __fastcall TDynaPowerDX::ServiceStart(TService *Sender, bool &Started)
{
   try
   {
      DataExchange = new TDataExchangeThread(false);
      Started = true;
   }
   catch(...)
   {
      MessageBox(HWND_DESKTOP, "Exception caught!", "Exception",
            MB_OK | MB_SERVICE_NOTIFICATION);
      Started = false;
   }
}

void __fastcall TDynaPowerDX::ServiceStop(TService *Sender, bool &Stopped)
{
   DataExchange->Terminate();
   DataExchange = NULL;
   Stopped = true;
}

__fastcall TDataExchangeThread::TDataExchangeThread(bool CreateSuspended)
   : TThread(CreateSuspended)
{
    throw 0;
}

void __fastcall TDataExchangeThread::Execute()
{

   while(!Terminated)
   {
      Sleep(0);
   }
}


For some reason, when the thread constructor throws, the catch block in
ServiceStart does not catch the exception. I have put a MessageBox in the
catch to test it, and it never is displayed.