怎样才能隐藏在ctrl+atl+del中进程列表中的项目啊

Question

将进程注册为服务：//定义变量
typedef DWORD (WINAPI RegisterMYServiceProcess)(DWORD dwProcessId,DWORD dwType);
HANDLE hMainProcess;//进程句柄
DWORD  dwMainProcessID;//进程ID
RegisterMYServiceProcess *RMSP;//函数指针

hMainProcess=GetCurrentProcess();
dwMainProcessID=GetCurrentProcessId();
hKernel=GetModuleHandle("KERNEL32.DLL");            
RMSP=(RegisterMYServiceProcess*)(GetProcAddress(hKernel,"RegisterServiceProcess"));
(*RMSP)(dwMainProcessID,1);
//三键组合不再能察看。  
最后在程序结束时，记得
FreeLibrary（hKernel）；

Answer 1

private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
private Const RSP_SIMPLE_SERVICE = 1
private Const RSP_UNREGISTER_SERVICE = 0
'Hide
    Dim pid As Long
    Dim regserv As Long
    pid = GetCurrentProcessId()
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)