function EnableCloseItem( h : HWND ) : Boolean;
//实现使窗口的关闭有效(h: 窗口的句柄)
var
hM: HMENU;
begin
if h <> 0 then //有效句柄
begin
hM := GetSystemMenu(h, False);
Result := EnableMenuItem(hM,SC_CLOSE,MF_BYCOMMAND+MF_ENABLED);
end
else
Result := False;
end;
function GrayedCloseItem( h : HWND ) : Boolean;
//实现使窗口的关闭变灰(h: 窗口的句柄)
var
hM: HMENU;
begin
if h <> 0 then //有效句柄
begin
hM := GetSystemMenu(h, False);
Result := EnableMenuItem(hM,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);
end
else
Result := False;
end;