DataSnap Service Application方式中为系统服务程序添加描述

DataSnap有三种服务模式，其中Service Application方式建立的windows服务没有描述，描述部分是空的。

uses中添加Registry，Winapi.Windows

通过如下办法添加描述：

procedure TServerContainer2.ServiceAfterInstall(Sender: TService);
var
  xreg: TRegistry;
begin
  xreg := TRegistry.Create;
  try
    with xreg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SYSTEM\CurrentControlSet\Services\' + Self.Name, false) then
      begin
        WriteString('Description', 'It is my service');
      end;
      CloseKey;
    end;
  finally
    xreg.Free;
  end;
end;