ayuda con WinSvc UNIt

[javier20]

hola a todos, hace poco empece con delphi , estoy haciendo q mi aplication corra en modo servicio de windows, y el problema que tengo es que cuando quiero ejecutar un programa externo con Winexec lo ejecuta , pero no lo muestra ya que al ser del tipo servicio corre como proceso de SISTEMA, como por ejemplo ejecutar la calculadora de windows . Alguien tiene alguna idea de como puedo solucionarlo?

[[seoane]]

Tienes que indicar que el servicio puede interactuar con el escritorio. Para ello tienes que utilizar la propiedad Interactive del objeto TService, si es lo que estas usando. O si estas usando funciones de la api escoger el parámetro apropiado en la función CreateService. También puedes cambiarlo manualmente en "Panel de control > Herramientas administrativas > Servicios".

Por cierto, la posibilidad de que los servicios interactúen con el escritorio desaparece por motivos de seguridad en el nuevo Windows Vista (Enlace). Así que tienes que tenerlo en cuenta a la hora de comenzar una nueva aplicación.

[dec]

Hola,

¿Cómo instalas el Servicio de Windows? ¿Lo creas tú mismo en Delphi? Si es esto último utilizarás la función "CreateService" de la unidad "windows.pas" y es en esta función donde puedes especificar el tipo de Servicio de Windows que estás instalando. En concreto te interesa el parámetro "dwServiceType", del que puede leerse en la ayuda del SDK de Win32 lo siguiente:

dwServiceType

A set of bit flags that specify the type of service. You must specify one of the following service type flags to indicate the service type. In addition, if you specify either of the SERVICE_WIN32 flags, you can also specify the SERVICE_INTERACTIVE_PROCESS flag to enable the service process to interact with the desktop.

Value Meaning

SERVICE_WIN32_OWN_PROCESS A service-type flag that specifies a Win32 service that runs in its own process.

SERVICE_WIN32_SHARE_PROCESS A service-type flag that specifies a Win32 service that shares a process with other services.

SERVICE_KERNEL_DRIVER A service-type flag that specifies a Windows NT device driver.

SERVICE_FILE_SYSTEM_DRIVER A service-type flag that specifies a Windows NT file system driver.

SERVICE_INTERACTIVE_PROCESS A flag that enables a Win32 service process to interact with the desktop.

Parece ser que en tu caso tendrías que especificar la constante/bandera "SERVICE_WIN32" y añadir "SERVICE_INTERACTIVE_PROCESS". ¿No?

[dec]

Hola,

No borro mi mensaje anterior porque acaso pueda aportar algo... pero, evidentemente, se me adelantó (y bien adelantado está) Seoane en este asunto, aportando además otras posibles soluciones y alguna que otra "noticia". Estupendo.

[javier20]

si muchisimas gracias dec, es justo lo q andaba buscando

[dec]

Hola,

Empezado por javier20

si muchisimas gracias dec, es justo lo q andaba buscando

Eso, a Seoane que le den morcillas.

[[seoane]]

Empezado por dec

Eso, a Seoane que le den morcillas.

Mi mensaje era muy chiquito comparado con el tuyo y ni lo leyó.