🚀 go-pugleaf

Hi,

This should be very simple, but I am not able to make it
work. Thus, some help would be very appreciated.

I am simply trying to trap messages in a service app. Thus if
WM_QUERYENDSESSION or WM_ENDSESSION is sent, I would like
to know so as to stop the user.

The code implementation I am trying is as follows:

In the ServiceStart function I am doing :
  	
  if( !FHandle )
  {
    FHandle = AllocateHWnd(MyWndProc);
  }

In the ServiceStop function I am doing:

  if( Fhandle )
    DeallocateHWnd(FHandle);

  FHandle = NULL;

Finally MyWndProc is defined and implemented as:

void __fastcall TLogOffSrv::MyWndProc(Messages::TMessage &Message) {
   if( Message.Msg == WM_QUERYENDSESSION || Message.Msg == WM_ENDSESSION )
   {
     if( !FLogOffAllowed)
     {
       AnsiOutputDebug("Not Allowed " +  IntToHex((int)Message.Msg, 2) );
       Message.Result = 1;
     }
   }
   else
   {
     AnsiOutputDebug("Other Message "  + IntToHex((int)Message.Msg, 2) );
     Message.Result = 0;
   }
}

Thank you

danieL.