vb中怎样让word关闭按钮失效

Question

我在VB中要调用WORD来打开文档,我想让WORD一直打开,直到我的程序结束才关闭,但要防止用户中途关闭它,应该怎样办呢?

Answer 1

Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
                                          ByVal nPosition As Long, _
                                          ByVal wFlags As Long) As Long
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
                                          ByVal bRevert As Long) As Long                                          
Const SC_CLOSE = &HF060      '關閉按鈕
Const MF_BYCOMMAND = &H0&
       
sub ttt
SetButton sc_close
end sub 
Function SetButton(ByVal Cmd As Long)
  Dim hMenu   As Long
  hMenu = GetSystemMenu(word主窗口句柄, 0)
  Call DeleteMenu(hMenu, Cmd, MF_BYCOMMAND)
  'Call RemoveMenu(hMenu, Cmd, MF_BYCOMMAND)
End Function