发信人: zhenbao(闲云孤鹤) 
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
 | 
 
 
【 在 hhw-eboy 的大作中提到:】
 :(1)如何能防止在Windows下“Ctrl+Alt+Del”强行关闭程序?
 :(2)如何能把程序放入Windows任务栏右下方?
 :......
 1、 调用WINDOWS API能实现,不显示当然不能结束了!呵!
 *-------------------------------------
 * 程序: 使当前进程在系统进程列队中
 *       显示 或 隐藏
 *       (在 Ctrl+Alt+Del 中无显示)
 * 设计: 红雨
 * 时间: 2001年11月10日
 *-------------------------------------
 Clea
 #Define RSP_SIMPLE_SERVICE     1
 #Define RSP_UNREGISTER_SERVICE 0
 Declare Integer GetCurrentProcessId IN kernel32
 Declare Integer RegisterServiceProcess IN kernel32 Integer dwProcessID, Integer dwType
 
 lnProcessId = GetCurrentProcessId()
 ? "当前进程号: ", lnProcessId
 
 ? "隐藏当前进程: ", RegisterServiceProcess(lnProcessId, RSP_SIMPLE_SERVICE)
 ? "显示当前进程: ", RegisterServiceProcess(lnProcessId, RSP_UNREGISTER_SERVICE)
 
 Clea dlls
 Return
 
  
 
 
  ----     | 
 
 
 |