请问如何禁止和恢复使用 Ctrl+Alt+Del ？

Question

请问如何禁止和恢复使用 Ctrl+Alt+Del ？
请问如何将自己的程序隐藏，不让Ctrl+Alt+Del发现。

Answer 1

将自己的程序隐藏  App.TaskVisible = False

Answer 2

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

Answer 3

如何将自己的程序隐藏，不让Ctrl+Alt+Del发现？
我以前曾看到过这样的程序。

Answer 4

隐藏自己的程序：app.taskvisible = false
不过有时还是显示“工程1”！TMD！

Answer 5

'模块里内容 
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)
    ' Disables Control Alt Delete Breaking as well as Ctrl-Escape
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)End Sub
'窗体代码 
Private Sub Command1_Click()
 DisableCtrlAltDelete (False)
End SubPrivate Sub Command2_Click()
  DisableCtrlAltDelete (True)
End Sub

Answer 6

http://expert.csdn.net/Expert/topic/1314/1314146.xml?temp=.6968958