标题:[请教高手]在WINXP环境下用VFP怎样屏蔽Ctrl+Alt+Del组合键?及实现关机功能 ...
只看楼主
dgvfpdjs
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2006-8-8
 问题点数:0 回复次数:3 
[请教高手]在WINXP环境下用VFP怎样屏蔽Ctrl+Alt+Del组合键?及实现关机功能?
各位兄长,您们好!

在WINXP中怎样屏蔽Ctrl+Alt+Del组合键?及实现关机功能?请指教,谢谢!

[此贴子已经被作者于2006-8-8 16:14:22编辑过]

搜索更多相关主题的帖子: VFP Del WINXP Ctrl 环境 
2006-08-08 14:57
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
得分:0 


利用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


有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-08 18:46
dgvfpdjs
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2006-8-8
得分:0 
多谢fown兄!

你说的好象在WINDOW9X的环境可以!我在WINXP试过好象不行,不知出错在哪里?

2006-08-09 10:19
dgvfpdjs
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2006-8-8
得分:0 

2006-09-11 15:19



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-82787-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.168360 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved