关闭程序的问题

[gaboo]

怎样使程序右上角的“X”，不可是用，既成为灰色.

[gaboo]

怎样使程序右上角的“X”不可用，既成为灰色.

[sean]

在对话框属性里的stytle中的[ ]system Menu 选项去掉，则没有X
你试试！

[gaboo]

还有其它的方法吗?????请多指教

[dzl]

在SDK下的方法:注册窗口类时，可使CLOSE按键变灰

WNDCLASS wc;
... ...
wc.style = CS_HREDRAW ¦ CS_VREDRAW ¦CS_NOCLOSE;
... ...


在MFC下的方法:
BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
if( !CFrameWnd::PreCreateWindow(cs) )
return FALSE;
cs.Style&=~WS_SYSMENU; //加入本行
return TRUE;
}

[dzl]

为什么
wc.style = CS_HREDRAW ¦ CS_VREDRAW ¦CS_NOCLOSE
变成了
wc.style = CS_HREDRAW ¦ CS_VREDRAW ¦CS_NOCLOSE

??????

[lingo]

我曾经运行时去掉最大化，最小化框，那个X应没什么问题。不知对你有没有用？

[bird2000]

有一种方法：删除系统菜单的“关闭 ALT+F4”项即可。

[shines77]

这是VB的代码，如果看不懂，请给我email: [e-mail] :

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)

If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub

[shines77]

此方法是删除了系统菜单 “关闭 ALT + F4”项和分割符.

[dandycheung]

dzl 回答的最好，在类的风格里加入 CS_NOCLOSE 即可，以上显示的 ¦ 即为 Shift+\，如果窗口类已经存在，可以试一下 SetClassLong() 这个 API。