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;
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;