🚀 go-pugleaf

Here's the whole thing:

//Note: This function was taken verbatim from the SDK documentation.
BOOL TForm1::MySystemShutdown()
{
   HANDLE hToken;
   TOKEN_PRIVILEGES tkp;

   // Get a token for this process.

   if (!OpenProcessToken(GetCurrentProcess(),
        TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))
      return( FALSE );

   // Get the LUID for the shutdown privilege.

   LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,
        &tkp.Privileges[0].Luid);

   tkp.PrivilegeCount = 1;  // one privilege to set
   tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;

   // Get the shutdown privilege for this process.

   AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
        (PTOKEN_PRIVILEGES)NULL, 0);

   if (GetLastError() != ERROR_SUCCESS)
      return FALSE;

   // Shut down the system and force all applications to close.

   if (!ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0))
      return FALSE;

   return TRUE;
}
//---------------------------------------------------------------------------

"Marc" <info@mawnet.com> wrote in message 
news:473cd9cf$1@newsgroups.borland.com...
> Hi all
>
> I read a lot about the TTrayIcon component and its problems with detecting 
> the WM_ENDSESSION with formless applications.
>
> So I took the source and modified the code in order to call an event in 
> the application in addition to simply call Shell_NotifyIcon(NIM_DELETE, 
> &FData).
>
> void __fastcall TMyTrayIcon::EndSession()
> {
>   OnEndSession(this);
>   Shell_NotifyIcon(NIM_DELETE, &FData);
> }
> //---------------------------------------------------------------------------
>
> In the OnEndSession event my application then does some cleanup and calls
> Application->Terminate();
>
> When running the application and log off, the WM_ENDSESSION is caught by 
> TMyTrayIcon, the OnEndSession event is fired and my application shuts down 
> correctly.
>
> But Windows does not continue with the shutdown...
>
> Does anyone have an idea why or how to get Windows to complete the shut 
> down (logoff)?
>
> This problem bugs me now for quite a while. I have tried alternatives like 
> the ShutDownWatcher but without success :-(
> Does anyone has a version of TTrayIcon that allows to define a shut down 
> event?
>
>
> Rds
> Marc
>
>
>