Verhindern, das sich das Programm mit Alt+F4 schließen lässt

[Verrückter Bastler]

Selbsterklärend/|\
|

[Jansen]

OnCloseQuery

[Verrückter Bastler]

Worein soll man das denn Schreiben?
Bin noch absoluter Neuling!

[audacia]

Ist zwar nicht allzu elegant, funktioniert aber:

bool alt_f4 = false;

...

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Shift.Contains (ssAlt) && Key == VK_F4)
                alt_f4 = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
        if (alt_f4)
                alt_f4 = CanClose = false;
}