禁止 Ctrl + Alt + Del
2012-10-23 19:15
429 查看
'声明(For Win95):
Private Const SPI_SCREENSAVERRUNNING = 97
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
'使用:
'禁止
'Dim pOld As Boolean
'Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'开启
'Dim pOld As Boolean
'Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
Private Sub Command1_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
Private Sub Command2_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub
'设置Form.BorderStyle=0 自动屏蔽Ctrl-Break and Alt-F4
Private Sub Command3_Click()
Form1.BorderStyle = 0
End Sub
Private Sub Command4_Click()
Form1.BorderStyle = 2
End Sub
Private Const SPI_SCREENSAVERRUNNING = 97
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
'使用:
'禁止
'Dim pOld As Boolean
'Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'开启
'Dim pOld As Boolean
'Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
Private Sub Command1_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
Private Sub Command2_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub
'设置Form.BorderStyle=0 自动屏蔽Ctrl-Break and Alt-F4
Private Sub Command3_Click()
Form1.BorderStyle = 0
End Sub
Private Sub Command4_Click()
Form1.BorderStyle = 2
End Sub
相关文章推荐
- VB禁止Ctrl+Alt+Del的源码
- 禁止 CTRL+ALT+DEL
- ubuntu 10.04下禁止ctrl+alt+del
- Windows Server 2003禁止开机显示“按Ctrl+Alt+Del”对话框
- Win7 禁止Ctrl+Alt+Del、Win+L等任意系统热键(利用IDA,windbg等工具分析)
- Win7 禁止Ctrl+Alt+Del、Win+L等任意系统热键
- VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del
- Windows Server 2012 禁止使用Ctrl+Alt+Del 以及禁止开机启动服务器管理器
- Win7 禁止Ctrl+Alt+Del、Win+L等任意系统热键
- 如何让Linux禁止Ctrl+Alt+Del重启(防止被强行关闭) erikxue 薛忠权
- Linux禁止Ctrl+Alt+Del重启
- Linux禁止Ctrl+Alt+Del重启
- Linux禁止Ctrl+Alt+Del重新启动
- 复习最基础的linux 之 禁止使用《ctrl+alt+del》
- Oracle VM VirtualBox安装完server2003后如何按ctrl+alt+del
- WINDOWS中CTRL+ALT+DEL控制的实现(DDK版)
- 使程序不在 Ctrl+Alt+Del 弹出的对话框内
- 禁止右键、选择、粘贴、shift、ctrl、alt.....
- 恼人的Ctrl+Alt+Del提示请彻底走开
- win2003开机需要按ctrl+alt+del的消除办法