设置关闭按键不可用(存大,只是灰色)
var
     hm: HMENU;
   begin
     hm := GetSystemMenu(Handle, False);
     EnableMenuItem(hm, SC_CLOSE, MF_DISABLED or MF_GRAYED);
   end;
设置关闭按键不可用(右键后你发现  "关闭"  没了)
    var
      hm: HMENU;
    begin
      hm := GetSystemMenu(Handle, False);  // 这里的Handle就是要无效按钮的目标
      DeleteMenu(hm, SC_CLOSE, 0);
    end;
说下 DeleteMenu()中第二个参数
'禁止还原按钮
Success = DeleteMenu(hMenu, SC_RESTORE, 0)
'禁止改变大小
Success = DeleteMenu(hMenu, SC_SIZE, 0)
'禁止最大化
Success = DeleteMenu(hMenu, SC_MAXIMIZE, 0)
'禁止最小化
Success = DeleteMenu(hMenu, SC_MINIMIZE, 0)
'禁止关闭
Success = DeleteMenu(hMenu, SC_CLOSE, 0)
'禁止移动
Success = DeleteMenu(hMenu, SC_MOVE,0)


在主窗口加菜单(就是左键后出现最小(大)化,关闭那里)
var
  hSysMenu:HMENU;
begin

  hSysMenu:=GetSystemMenu(Handle,False);
  AppendMenu(hSysMenu,MF_separator,0,nil);//加一条线
   AppendMenu(hSysMenu,MF_STRING,0,'新菜单');