怎样利用程序停止TermService服务（用ControlService停不掉）(300分)

怎样利用程序停止TermService服务（用ControlService停不掉）
欢迎大家探讨
我的程序可以停大部分的。
var
tmpsmg,tmpsvc:integer;
st:TServiceStatus;
pCHAR;
begin
tmpsmg:=OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
tmpsvc:=OpenService(tmpsmg, PChar(servicename), SERVICE_ALL_ACCESS);
ControlService(tmpsvc,1,st);
repeat
Sleep(50);
until (QueryServiceStatus(tmpsvc,st) and
(WaitFor[controltype]=st.dwCurrentState));
CloseServiceHandle(tmpsvc);
CloseServiceHandle(tmpsmg);
end;

有的服务你是停不掉的，例如做了保护的像卡巴司机的服务，还有就是系统关键服务

只有把它禁用了等重启吧

谢谢，采用另外一种绕开这个问题了。