vfp中屏蔽ctrl.txt

来自「Vfp 文档 一些经典编程文章 可供初学者学习编程时使用」· 文本 代码 · 共 31 行

　
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