Du kannst den Code natürlich auch in's onCreate-Ereignis des Form's reinmachen.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var hMen: HMENU;
Begin
//Ausschalten
hMen := GetSystemMenu(Self.Handle, LongBool(0));
EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;
PS: mit Alt+F4 läßt sich dein Programm auch noch beenden
