怎么使运行的程序在alt+ctrl+shift时不显示??

Question

在启动时设定：
app.TaskVisible =False 

Answer 1

Const SPI_SCREENSAVERRUNNING = 97 Private Declare Function SystemParametersInfo Lib "user32" Alias  _
        "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
         lpvParam As Any, ByVal fuWinIni As Long) As Long    Dim pOld As Boolean
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0) 如果想将 Ctrl+Alt+Del 的功能还原， 则是：    Dim pOld As Boolean
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)