表单的Init方法: *声明API函数 Declare Long SystemParametersInfo In "user32" Long uAction , Long uParam, Long lpvParam , Long fuWinIni
Public SPI_SCREENSAVERRUNNING
SPI_SCREENSAVERRUNNING = 97 *使Ctrl+Alt+Del无效 SystemParametersInfo (SPI_SCREENSAVERRUNNING, .F., 0, 0) 表单的UnLoad方法: *使Ctrl+Alt+Del有效
SystemParametersInfo (SPI_SCREENSAVERRUNNING, .T., 0, 0)
Public SPI_SCREENSAVERRUNNING
SPI_SCREENSAVERRUNNING = 97 *使Ctrl+Alt+Del无效 SystemParametersInfo (SPI_SCREENSAVERRUNNING, .F., 0, 0) 表单的UnLoad方法: *使Ctrl+Alt+Del有效
SystemParametersInfo (SPI_SCREENSAVERRUNNING, .T., 0, 0)
我已经试过了,这样确实可行,但Ctrl+Alt+Del三键组合就不能用了,这样可能会增添许多麻烦,可不可以实现Ctrl+Alt+Del三键组合可用,而却又无法强行终止我的程序,在VB中是这样实现的:
Private Sub Command1_Click()
App.TaskVisible = True
End Sub不知VFP如何实现,请指点.