随笔分类 -  Delphi

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 阅读(756) 评论(0) 推荐(0)

导航