[请教高手]在WINXP环境下用VFP怎样屏蔽Ctrl+Alt+Del组合键?及实现关机功能?
各位兄长,您们好!在WINXP中怎样屏蔽Ctrl+Alt+Del组合键?及实现关机功能?请指教,谢谢!
[此贴子已经被作者于2006-8-8 16:14:22编辑过]
[此贴子已经被作者于2006-8-8 16:14:22编辑过]
利用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