¿Como colocar Descripción al Tservice?

[dec]

Hola,

Por lo poco que he estado mirando parece que se trata de un "problema" de cómo se implementa la creación de un determinado servicio en la clase "TServiceApplication" de Delphi. Quiere decirse que parece que se desaprovecha una posible propiedad "Description" del Servicio.

En Visual Studio he comprobado que la clase "ServiceBase" no cuenta con una propiedad "Description" para un determinado Servicio de Windows, empero, es la clase "ServiceInstaller" la que se preocupa de una propiedad así. Esto me da que pensar que en Delphi fuera algo parecido, es decir, que no fuera la clase "TService" la que tuviera una propiedad así, pero cierta clase encargada de la instalación del Servicio.

Pero, me parece que en Delphi no existe una clase así, es decir, algo parecido a la clase "ServiceInstaller" de la plataforma .NET. Existe la clase "TServiceApplication", pero esta tampoco cuenta con una propiedad "Description", y es en esta clase donde digo que parece que se desaprovecha la oportunidad de establecer esta propiedad para el Servicio, puesto que se utiliza la función "CreateService" de la API de Windows, pero lo que se proporciona es el nombre del Servicio (que coincide con el nombre de la clase "TService" -creo) y una propiedad "DisplayName", que no es y no sirve para lo que estás buscando.

¿Entonces? ¿No hay otra forma de que aparezca en el panel de control o en la aplicación "Services" de Windows una descripción de un Servicio de Windows hecho con Delphi para Win32? A mí no se me ocurre sino entrar en el Registro de Windows, pero, no dudo de que alguien eche por tierra esta solución, por poco elegante, por lo menos.

Al menos en Windows XP existe la clave del Registro de Windows:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services

En esa clave aparecen todos los Servicios (o al menos una buena parte de ellos, no diré que todos porque no estoy seguro) instalados en el Sistema. Existen en la clave no pocas subclaves, cada una de ellas correspondiente a un Servicio de Windows. En estas subclaves podemos encontrar valores como "Name", "DisplayName" y... "Description".

Entonces, es cuestión de saber la clave que corresponda al Servicio de Windows que estás creando, que debe crearla el propio Windows en el momento de instalar el Servicio, y de escribir en la misma un nuevo valor "Description" con lo que te sea menester. Creo que más o menos se entiende lo que quiero decir, así que no me enrollo más.