Schließenbutton abschalten

[turboPASCAL]

Versuche es mal so:

Delphi-Quellcode:

var
  AppMenu: HMENU;
begin
  AppMenu:=GetSystemMenu({FormX.}Handle, False);

  // "ausschalten"
  EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

  // "einschalten"
  EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
end;