SystemMenu Problem

[delphinub23]

Also ich habs selbst probiert und so funktioniert es:

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
    if FApplicationCanClose then
      EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED) //CloseFlags[FApplicationCanClose]);
    else
      EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_DISABLED);
end;

Aber deine If-Lösung sieht schöner aus.
ich danke dir wiedermal für deine Hilfe!

MfG,
dnub