delphi – 是否可以创建TService的后代并发布我自己的属性？

我想知道我是否可以创建自己的服务shell,例如TJDService,它继承自TService,但还有一些额外的东西,例如在对象检查器中显示的“Description”属性.我可以像这样制作自己的服务外壳吗？我知道我可以创建自己的“默认项目”继承自TService,但包括我的所有代码和任何新项目.

创建新服务时,它应如下所示：

unit Unit1;

interface

uses
  Winapi.Windows,Winapi.Messages,System.SysUtils,System.Classes,Vcl.SvcMgr,JDServices;

type
  TJDService1 = class(TJDService)
  private

  public
    function GetServiceController: TServiceController; override;
  end;

var
  JDService1: TJDService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  JDService1.Controller(CtrlCode);
end;

function TJDService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

end.

与典型服务相同,但使用我的TJDService而不仅仅是TService.