请问VB程序中如何屏蔽Ctrl+Alt+Del 和Alt+F4组合键。

Question

1、屏蔽Ctrl+Alt+Del：
Option Explicit
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As LongPrivate Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
    
Private Sub MakeMeService()
    Dim pid As Long
    Dim reserv As Long
    pid = GetCurrentProcessId()
    RegisterServiceProcess pid, RSP_SIMPLE_SERVICE
End Sub
    
Private Sub UnMakeMeService()
    Dim pid As Long
    Dim reserv As Long
    pid = GetCurrentProcessId()
    RegisterServiceProcess pid, RSP_UNREGISTER_SERVICE
End Sub
    
Private Sub Command1_Click()
    Call MakeMeService 'ʹ´°¿ÚÒþ²Ø
End Sub
    
Private Sub Command2_Click()
    Call UnMakeMeService  'ʹ´°¿ÚÏÔʾ
End Sub2、屏蔽Alt+F4：
是什么窗体？

Answer 1

用KEYDOWN事件，VBSHIFTMASK屏蔽SHIFT键，VBCTRLMASK屏蔽CTRL键，VBALTMASK屏蔽ALT键，
ALT+F4屏蔽那一个窗口

Answer 2

其实要屏蔽Alt+F4可以通过去掉系统菜单中的关闭一项即可！

Answer 3

Alt+F4：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = UnloadMode = vbFormControlMenu
End Sub

Answer 4

SystemParameterInfo 会影响屏幕保护，可以试试用HOOK来作，虽然麻烦但可以控制更多你想要控制的东西。