Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: VFP中屏蔽CTRL+ALT+DEL键
发信站: 哈工大紫丁香 (2000年12月13日07:54:36 星期三), 站内信件

VFP中屏蔽CTRL+ALT+DEL键

    在编制应用程序时有时需要将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

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]