用Delphi写Win32服务很方便,它所提供的TService类很好用.但是使用过的朋友一定也发现,TService只提供了Name(服务名)和DisplayName(显示名)这两个属性,而并没有关于描述信息的属性可用.导致这样写出来的服务的描述信息是空的,总会让人觉得残缺不完整.

下面就说说给TService添加服务描述信息的方法.其它不多说,直接帖代码出来,下面帖出一个比较完整的服务单元,并且实现了服务描述信息的制定.

unit SvcMain; interface uses Windows, Classes, SvcMgr; const // 服务描述信息 SVC_DESC = 'This is the description of my service.'; type TMySvc = class(TService) procedure ServiceCreate(Sender: TObject); procedure ServiceDestroy(Sender: TObject); procedure ServiceStart(Sender: TService; var Started: Boolean); procedure ServiceStop(Sender: TService; var Stopped: Boolean); procedure ServicePause(Sender: TService; var Paused: Boolean); procedure ServiceContinue(Sender: TService; var Continued: Boolean); procedure ServiceAfterInstall(Sender: TService); private procedure SetDescription(const Desc: string); public function GetServiceController: TServiceController; override; end; var MySvc: TMySvc; implementation {$R *.DFM} uses WinSvc; procedure ServiceController(CtrlCode: DWORD); stdcall; begin MySvc.Controller(CtrlCode); end; function TMySvc.GetServiceController: TServiceController; begin Result := ServiceController; end; // 创建 procedure TMySvc.ServiceCreate(Sender: TObject); begin // TODO: end; // 销毁 procedure TMySvc.ServiceDestroy(Sender: TObject); begin // TODO: end; // 启动 procedure TMySvc.ServiceStart(Sender: TService; var Started: Boolean); begin Started := True; // TODO: // 开始你的工作 end; // 停止 procedure TMySvc.ServiceStop(Sender: TService; var Stopped: Boolean); begin Stopped := True; // TODO: // 停止你的工作 end; // 暂停 procedure TMySvc.ServicePause(Sender: TService; var Paused: Boolean); begin Paused := True; // TODO: // 暂停你的工作 end; // 继续 procedure TMySvc.ServiceContinue(Sender: TService; var Continued: Boolean); begin Continued := True; // TODO: // 继续你的工作 end; // 安装后 procedure TMySvc.ServiceAfterInstall(Sender: TService); begin // 设置描述信息 Self.SetDescription(SVC_DESC); end; {----------------------------------------------------- 名称: TMySvc.SetDescription 功能: 手动设置服务描述信息 参数: Desc: string - 描述信息 返回: 建议在 Afterinstall 事件中调用 -----------------------------------------------------} procedure TMySvc.SetDescription(const Desc: string); var hSCM: SC_HANDLE; hService: SC_HANDLE; sd: SERVICE_DESCRIPTION; begin hSCM := WinSvc.OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if hSCM = 0 then Exit; hService := WinSvc.OpenService(hSCM, PChar(Self.Name), SERVICE_CHANGE_CONFIG); if hService = 0 then Exit; sd.lpDescription := PChar(Desc); ChangeServiceConfig2(hService, SERVICE_CONFIG_DESCRIPTION, @sd); // 说明: ChangeServiceConfig2 函数在 Delphi 的 WinSvc 单元中并没有提供, // 请自行参考 MSDN 对它进行声明定义和引用. 这不是此文的重点, 就不多说它. WinSvc.CloseServiceHandle(hService); WinSvc.CloseServiceHandle(hSCM); end; end.

当然,通过以上代码,还可以再进一步,从TService继承制作一个支持描述属性的服务封装类.留给有兴趣的朋友去做吧.

发表于 @ 2009年06月25日　11:26:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:Delphi中限制文本框(TEdit)只能输入小数 | 新一篇:[转] Delphi API HOOK 完全说明