SystemMenu Problem

[DeddyH]

Wieso DeleteMenu? Versuch es einmal so (ungetestet):

Delphi-Quellcode:

procedure TFormMain.SetCanCloseApplication(const AValue: Boolean);
const
  CloseFlags: array[Boolean] of UINT = (MF_BYCOMMAND or MF_DISABLED, 
                                        MF_BYCOMMAND or MF_ENABLED);
var
  AppMenu: THandle;
begin
  FApplicationCanClose := AValue;

  AppMenu := GetSystemMenu(Self.Handle, FALSE);

  if AppMenu <> 0 then
    EnableMenuItem(AppMenu, SC_CLOSE, CloseFlags[FApplicationCanClose]);

end;