★如何移除窗口右上方的 [X]按钮★

Question

请问如何移除窗口右上方的 [X]按钮？？？http://www.emugua.net/vbgl/1-20/pr9.htm#43 有这个解决办法，
只是没有具体讲怎么用API函数。各位大侠能不能补充两个API函数的详细用法？

Answer 1

Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Sub Form_Load()
Dim MyMenu As Long
    MyMenu = GetSystemMenu(Me.hwnd, 0)
    RemoveMenu MyMenu, &HF060, &H0&
End Sub

Answer 2

' GetSystemMenu 函数声明
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
' RemoveMenu函数声明
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
' 以上两个函数相关的常量声明
Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060
Private Const SC_MINIMIZE = &HF020
Private Const SC_MAXIMIZE = &HF030Public Sub Disabled()
Dim hMenu As Long
' 获得系统菜单句柄
hMenu = GetSystemMenu(hwnd, 0)
' 使关闭按钮不可用
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
' 使最小化按钮不可用
RemoveMenu hMenu, SC_MINIMIZE, MF_REMOVE
' 使最大化按钮不可用
RemoveMenu hMenu, SC_MAXIMIZE, MF_REMOVE
End SubPrivate Sub Command1_Click()
Disabled
End Sub

Answer 3

http://www.csdn.net/develop/read_article.asp?id=18774