不用三键组合
或是将三键组合禁掉(在你的程序里)
好想事SystemparmeterInfo(....)
类似的东西

解决方案 »

  1.   

    ' 声明
    Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
    Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Sub Form_Load()
    RegisterServiceProcess GetCurrentProcessId, 1
    end sub
      

  2.   

    添加一个模块:
    Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
    Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
    Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
    Public Const RSP_SIMPLE_SERVICE = 1
    Public Const RSP_UNREGISTER_SERVICE = 0窗体的代码为:Private Sub Form_Load()
    '遮蔽Del+Alt+Ctrl
     Dim Ret  As Long
     Dim pOld As Boolean
     Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
                     
    End Sub
    保证连Alt+F4都遮蔽掉
      

  3.   

    只要存在窗口(哪怕不可见),都会被列出。因而,你最好的选择是不用exe文件。譬如,你用vc做一个动态连接库dll,你的所有操作都在此dll中完成。程序(exe文件)运行后,你将此dll文件挂接上其他程序。在你的程序被中止后,其他程序依然会调用dll.
      

  4.   

    : qaymuic(qaymuic) (2001-7-22 9:22:27)  得0分 
    只要存在窗口(哪怕不可见),都会被列出。因而,你最好的选择是不用exe文件。譬如,你用vc做一个动态连接库dll,你的所有操作都在此dll中完成。程序(exe文件)运行后,你将此dll文件挂接上其他程序。在你的程序被中止后,其他程序依然会调用dll.  这个方法比较好!  写vxd最好,可惜…………vb…………