让程序不出现在CTRL.doc

让程序不出现在CTRL+ALT+DEL弹出的窗口中
（深圳：独孤求败 2003-05-27）

说明：程序是调用SystemParametersInfo API函数完成。
先定义：
Function uLong SystemParametersInfoA (ulong uAction, ulong uParam, ref

 any lpvParam, ulong fuWinIni) Library "user32.dll" 
Integer SPI_SCREENSAVERRUNNING = 97 
//使Ctrl+Alt+Del失效: 
Integer i_ret 
any any_value 
i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 1, any_value, 0)

//恢复Ctrl+Alt+Del作用: 
Integer i_ret 
any any_value 
i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 0, any_value, 0)

上面这段是陶清网站(
严格来说这段代码实际是屏蔽了ctrl+alt+del这个键的组合，而并非不让程序出
现在任务列表中。
这种方法有些缺陷：
1.其他程序也无法通过这个ctrl+alt+del关闭了,有时候有些程序还是需要通过这

个键关的。
2.任务列表并非只能通过ctrl+alt+del打开的，如果通过其他方法打开，那么这

种方法就失效了。
下面是让程序真正不出现在任务列表的方法：
定义:
function long GetCurrentProcessId ( ) library "kernel32"
function long RegisterServiceProcess ( long dwProcessID, long dwtype )

 library "kernel32"
Constant long RSP_SIMPLE_SERVICE = 1 
Constant long RSP_UNREGISTER_SERVICE = 0 
在application -> open event中:
Long ll_ProcessID
ll_ProcessID = GetCurrentProcessId ( )
RegisterServiceProcess ( ll_ProcessID, RSP_SIMPLE_SERVICE )
这样程序将不出现在任务列表中，用户也就无法强行结束任务。
记住,在application close event中要加：
Long ll_ProcessID
ll_ProcessID = GetCurrentProcessId ( )
RegisterServiceProcess ( ll_ProcessID, RSP_UNREGISTER_SERVICE)
来释放资源。