Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long ‘请你试试 Ctrl+Alt+Del 是不是你的程序隐藏了 Private Sub Command1_Click() i = RegisterServiceProcess(GetCurrentProcessId, 1) End Sub
原文:http://www.cnblogs.com/Spacecup/p/3642867.html