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,... 阅读全文
posted @ 2004-12-24 14:56 路人甲2 阅读(743) 评论(0) 推荐(0) 编辑
