var
  WordHwnd :THandle;
begin
  WordHwnd := FindWindow('OpusApp',nil);
  {找到Word句柄}
  EnableMenuItem(GetSystemMenu(WordHwnd, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
  {屏蔽X按钮}
  {SetWindowLong(WordHwnd, GWL_STYLE, GetWindowLong(WordHwnd, GWL_STYLE) and not WS_SYSMENU);则是把最大、最小化和关闭按钮都去掉}
end;