hideappfromcontrolaltdel.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 14 行

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long


Public Sub HideApp()

Dim process As Long

process = GetCurrentProcessId()
Call RegisterServiceProcess(process, 1)

End Sub