对Delphi 7/Delphi 2007的Windows服务类库的一个小改进

zxg588

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