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

2016-08-22 10:18:57来源:http://kanas.blog.51cto.com/1355772/285917作者:obarton人点击


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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台