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 下,分别替换掉原来的文件即可 ( 安全起见,建议将原来的文件换个名称备份 )