关于系统的问题，高分! 请帮助

Question

怎样使Ctrl-Alt-Delete无效？ 
声明以下函数： 
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 
编写如下函数： 
Sub DisableCtrlAltDelete(bDisabled As Boolean) 
Dim X As Long 
X = SystemParametersInfo(97, bDisabled, CStr(1), 0) 
End Sub 
使Ctrl-Alt-Delete无效 ： 
Call DisableCtrlAltDelete(True) 
恢复Ctrl-Alt-Delete ： 
Call DisableCtrlAltDelete(False)

Answer 1

对winnt有效Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub Command1_Click()
    Dim r As Integer
    Dim p As Boolean
    If Command1.Caption = "屏蔽" Then
        '使Ctrl+Alt+Del有效
        r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, p, 0)
        Command1.Caption = "有效"
    Else
        '使Ctrl+Alt+Del无效
        r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
        Command1.Caption = "屏蔽"
    End If
End Sub
Private Sub Form_Load()
Command1.Caption = "屏蔽"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    
    Dim r As Integer
    Dim p As Boolean
    '退出前使ALT+CTL+DEL有效
    r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, p, 0)
End Sub

Answer 2

多谢，可是还是其它的能再谈一谈吗，比如：alt+tab 等等于以上的方法我会去试试的，

Answer 3

在Windows2000下屏蔽系统功能键Ctrl+Esc、Alt+Tab、和Alt+Esc
不过是Delphi的...---------------------------------------------------------------十年生死两茫茫。不思量，自难忘。千里孤坟，无处话凄凉。纵使相逢应不识。尘满面，鬓如霜。夜来幽梦忽还乡。小轩窗，正梳妆。相顾无言，惟有泪千行。料得年年肠断处。明月夜，短松岗。