SystemMenu Problem

[DeddyH]

Kein Problem:

Delphi-Quellcode:

procedure TFormMain.SetCanCloseApplication(const AValue: Boolean);
var
  AppMenu: THandle;
  CloseFlags: UINT;
begin
  FApplicationCanClose := AValue;
  
  CloseFlags := MF_BYCOMMAND;
  if FApplicationCanClose then
    CloseFlags := CloseFlags or MF_ENABLED
  else
    CloseFlags := CloseFlags or MF_DISABLED;

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

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

end;