Systembutton X bei Form deaktivieren?

[Dalai]

Stammt aus einem meiner Programme (Delphi 5):

Delphi-Quellcode:

var
  hMen  : HMENU;
begin
  //Ausschalten, Schließen im System-Menü
  hMen:= GetSystemMenu(Application.Handle, LongBool(0));
  EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
  //Ausschalten, Schließen im Formular-Menü
  hMen:= GetSystemMenu(Formular.Handle, LongBool(0));
  EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;

Wird ggf. anders sein in neueren Delphi-Versionen, weil das Application-Window ja nicht zwingend auf der Taskbar angezeigt wird sondern stattdessen das der MainForm.

Generell sei aber gesagt, dass das Deaktivieren dieses Buttons mit Vorsicht zu genießen ist, weil bestimmte Leute es ggf. als schlechten Stil oder nervig empfinden.

MfG Dalai