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