zt在Delphi7中屏蔽word,excel左上角的弹出菜单的关闭选项

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;

转载于:https://www.cnblogs.com/brent2008/archive/2004/12/24/81522.html