Win98下蔽掉 ctrl+del+altPublic Declare Function GetCurrentProcessId Lib “kernel32” () As Long ’获得当前进程ID函数的声明 Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long '窗体Private Sub Form_Load() RegisterServiceProcess GetCurrentProcessId, 1 ’ 从系统中取消当前进程 end subPrivate Sub Form_Unload(Cancel As Integer) RegisterServiceProcess GetCurrentProcessId, 0 ’从系统中取消当前程序的进程 End Sub
编写小函数如下: 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 LongSub DisableCtrlAltDelete(bDisabled As Boolean) Dim X As Long X = SystemParametersInfo(97, bDisabled, CStr(1), 0) End Sub 程序设计时如果需要屏蔽Ctrl-Alt-Delete按键,可以书写 Call DisableCtrlAltDelete(True),如果需要恢复原状,可以书写Call DisableCtrlAltDelete(False)。
当然能 *API函数声明 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)
’获得当前进程ID函数的声明
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long '窗体Private Sub Form_Load()
RegisterServiceProcess GetCurrentProcessId, 1 ’ 从系统中取消当前进程
end subPrivate Sub Form_Unload(Cancel As Integer)
RegisterServiceProcess GetCurrentProcessId, 0 ’从系统中取消当前程序的进程
End Sub
http://expert.csdn.net/Expert/topic/2374/2374876.xml?temp=.312298
http://expert.csdn.net/Expert/TopicView1.asp?id=2019647
http://expert.csdn.net/Expert/topic/2019/2019647.xml?temp=.8485681
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 LongSub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
程序设计时如果需要屏蔽Ctrl-Alt-Delete按键,可以书写
Call DisableCtrlAltDelete(True),如果需要恢复原状,可以书写Call
DisableCtrlAltDelete(False)。
http://expert.csdn.net/Expert/topic/2394/2394203.xml?temp=.358227
http://expert.csdn.net/Expert/topic/2374/2374876.xml?temp=.312298
http://expert.csdn.net/Expert/TopicView1.asp?id=2086886
http://expert.csdn.net/Expert/topic/2086/2086886.xml?temp=.6452753http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=172328
*API函数声明
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)