Windows 2000
以上的Windows
版本所支持的Windows
服务的功能有所改进，其变化体现在AdvApi32.dll
中。其新增的函数包括：
- ChangeServiceConfig2
-
QueryServiceConfig2
-
EnumServicesStatusEx
-
QueryServiceStatusEx
-
RegisterServiceCtrlHandlerEx
-
NotifyServiceStatusChange
-
ControlServiceEx
这些函数在最新版本的MSDN
文档中有详细记载。这些改进对我们编写Windows
服务的主要影响有：
首先，最大的好处在于，以往在ServiceMain
中调用RegisterServiceCtrlHandler
的时候，所注册的ServiceController
例程只有一个参数，就是控制码。在很多情况下，这是不够的。换句话说，如果需要注册一段共享的ServiceController
代码，是无法做到的。例如Delphi
的Windows
服务架构在处理这个问题的时候就不太方便，一个Windows
服务应用程序就只有有一个ServiceController
例程，并且该例程只能访问全局上下文。而新的RegisterServiceCtrlHandlerEx
所注册的ServiceController
例程一共有四个参数：控制码、事件类型、事件数据和外部上下文。特别是这个上下文，非常方便在ServiceController
中访问单独的私有的类实例代码。我没有Delphi2007
的WinSvc
的源码，但我根据编译时的提示，判定估计该类库没有更新。
其次，在调用ControlService
的时候，只能控制服务的状态，而ControlServiceEx
还可以加注进行这些控制的原因。
再次, QueryServiceStatusEx
可以查询相关进程的信息。
最后，在登记Windows
服务后，可以进一步修改配置，例如，Delphi
的Windows
服务架构无法设置Windows
服务的描述。JEDI
类库虽然也可以设置描述，但是却是通过修改注册器来实现的。而ChangeServiceConfig2
可以很简单地解决这个问题。此外，还可以设置在Windows
启动或停止失败后，可以指定运行某个活动(
例如，可以重启或者执行某个命令)
。
附件中文件包括一个源文件和一个
DCU
文件，在
Delphi7
下测试通过。最简单的办法是：将
WinSvc.Pas
文件复制到
C:\Program Files\Borland\Delphi7\Source\Rtl\Win
下，将
WinSvc.dcu
文件复制到
C:\Program Files\Borland\Delphi7\Lib
下，分别替换掉原来的文件即可
(
安全起见，建议将原来的文件换个名称备份
)
。
本文转自 obarton 51CTO博客，原文链接:http://blog.51cto.com/kanas/285917
