如何隐藏程序不在任务管理器里显示?
在98里面可以轻松实现,但在2K里实现不知道用VFP代码如何实现,有一种可以阻止用户通过任务管理器来关闭程序的方法但没成功,请问如何来实现?
只需调用两个API函数就可以
呵呵要实现这个功能只要加入:
Private Sub Form_Load()
App.TaskVisible = False
End Sub
在表单上加入一个按钮,设置其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