[请教高手]在WINXP环境下用VFP怎样屏蔽Ctrl+Alt+Del组合键？及实现关机功能？
各位兄长，您们好！
在WINXP中怎样屏蔽Ctrl+Alt+Del组合键？及实现关机功能？请指教，谢谢！
各位兄长，您们好！
在WINXP中怎样屏蔽Ctrl+Alt+Del组合键？及实现关机功能？请指教，谢谢！
[此贴子已经被作者于2006-8-8 16:14:22编辑过]
| 全能ASP/PHP/ASP.NET主机，支持月付 | 专业 MSSQL 数据库空间，支持月付 | 专业 MySQL 数据库空间，支持月付 | 学习型 ASP/PHP/ASP.NET 主机 30元/年 |
| 高端软件开发 = 年薪十万不是梦 |
[此贴子已经被作者于2006-8-8 16:14:22编辑过]
2006-8-8 14:57
利用WINAPI是可以实现的
在编制应用程序时有时需要将CTRL+ALT+DEL键屏蔽掉，以防止用户中止程序的运行，这正是我们的管理系统中所必需的。在VFP中我们可以调用API函数来实现这一设计。
在表单上加入一个按钮，设置其CAPTION属性为“屏蔽 CTRL+ALT+DEL”。为表单加入以下的代码：
表单的Activate方法：
Declare Long SystemParametersInfo In "user32" Long uAction , Long uParam, Long lpvParam , Long fuWinIni
Public SPI_SCREENSAVERRUNNING
SPI_SCREENSAVERRUNNING = 97
表单的QueryUnload方法：
*使Ctrl+Alt+Del无效
SystemParametersInfo (SPI_SCREENSAVERRUNNING, .F., 0, 0)
Command1的Click方法：
If this.Caption = "屏蔽 CTRL+ALT+DEL" Then
*使Ctrl+Alt+Del有效
SystemParametersInfo (SPI_SCREENSAVERRUNNING, .T., 0, 0)
this.Caption = "CTRL+ALT+DEL 有效"
Else
*使Ctrl+Alt+Del无效
SystemParametersInfo (SPI_SCREENSAVERRUNNING, .F., 0, 0)
this.Caption = "屏蔽 CTRL+ALT+DEL"
EndIf
2006-8-8 18:46
2006-8-9 10:19
2006-9-11 15:19
