Windows 2000 以上的Windows 版本所支持的Windows 服务的功能有所改进，其变化体现在AdvApi32.dll 中。其新增的函数包括：

这些函数在最新版本的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