Code:

bool __fastcall TForm1::WinMessageHook(TMessage& WinMsg)
{
   bool retval;
   switch( WinMsg.Msg )
   {
       case WM_QUERYENDSESSION:
             // Cleanup data , Application->Terminate()
             ExitWithoutQuestion();
             WinMsg.Result = true;    //  ??
             //WinMsg.LParam = true;  //  ??
             retval = true;           // (ob retval true oder false ist macht 
                                      //     kein Unterschied)
             break;
       default : 
             retval = false; break;
   }

   return retval;
}

Wenn mir jemand weiterhelfen kann, waere ich sehr dankbar
Gruesse
Juergen

was ist denn ExitWithoutQuestion()? Wird aus der Funktion zurückgekehrt?

Ich hab's bei mir sehr ähnlich gelöst:
Header:

void __fastcall WndProc(Messages::TMessage &Message);

CPP:

void __fastcall TForm_MainViewer::WndProc(Messages::TMessage &Message)
{
	bool handled = false;
	if ((Message.Msg == WM_SYSCOMMAND) && (Message.WParam == SC_SCREENSAVE))
	{
		Message.Result = false;
		ShowMessage("Windows kann den Bildschirmschoner nicht aktivieren, solange die Fertigungsplanung aktiv ist.");
		handled = true;
	}
	if (!handled)
	{
		if (Message.Msg == WM_QUERYENDSESSION)
		{
			Message.Result = false;
			ShowMessage("Windows kann nicht beendet werden. Beenden Sie zuerst die Fertigungsplanung.");
			handled = true;
		}
	}
	if (!handled)
		TForm::WndProc(Message);
}

Im ersten Schritt wird überprüft ob der User versucht den ScreenSaver zu reaktivieren. Im zweiten Schritt wird überprüft, ob Windows heruntergefahren werden soll und dieses unterbunden. Wenn die Nachricht nicht von der Routine bearbeitet wird, wird die der normale Messagehandler aufgerufen.