vb生成的exe 注册成系统服务后,怎么在windows的'服务管理器'中不让别人结束自己的服务.就像卡巴一样,停止和暂停按钮是灰的

vb生成的exe 注册成系统服务后,如何在windows的'服务管理器'中不让别人结束自己的服务.就像卡巴一样,停止和暂停按钮是灰的.
如题,我目前用的是NtService(NTSVC.ocx)控件,如果该控件可以设置,就更好了.

------解决方案--------------------
核心代码如下：
Sub Handler(ByVal dwOpcode As Long)
Select Case dwOpcode
Case SERVICE_CONTROL_STOP '此处原来是处理停止消息的，不作处理
Case SERVICE_CONTROL_PAUSE
Case SERVICE_CONTROL_CONTINUE
Case SERVICE_CONTROL_INTERROGATE
Case SERVICE_CONTROL_SHUTDOWN '在关机时写停止处理
'...
Case Else
End Select

End Sub

------解决方案--------------------
http://hi.baidu.com/soft530/blog/item/fb5945f09623c4c27931aa4a.html
http://zhidao.baidu.com/question/25273467.html
------解决方案--------------------
http://www.baidu.com/s?ie=gb2312&bs=vb%CA%B5%CF%D6%BD%F8%B3%CC%B1%A3%BB%A4&sr=&z=&cl=3&f=8&tn=baidu&wd=VB%CC%E1%C9%FD%C8%A8%CF%DE%CE%AASystem+Thread+%CA%B5%CF%D6%BD%F8%B3%CC%B1%A3%BB%A4&ct=0
------解决方案--------------------

探讨

等一会,我给你写个.

------解决方案--------------------

探讨

核心代码如下：
Sub Handler(ByVal dwOpcode As Long)
Select Case dwOpcode
Case SERVICE_CONTROL_STOP '此处原来是处理停止消息的，不作处理
Case SERVICE_CONTROL_PAUSE
Case SERVICE_CONTROL_CONTINUE
Case SERVICE_CONTROL_INTERROGATE
Case SERVICE_CONTROL_SHUTDOWN '在关机时写停止处理
'...
Case Else
End Select

End Sub

------解决方案--------------------
这里有个外国人写的不用ntsvc.ocx的服务程序的例子
http://www.smsoft.ru/en/ntservice.htm