Delphi - Aplicacion Externa en Servicio

 
Vista:

Aplicacion Externa en Servicio

Publicado por joselito (177 intervenciones) el 09/10/2008 10:43:00
Hola a todos;

He creado un Servicio en Delphi, que se levanta nada más arrancar Windows, y que se ejecuta cada X tiempo (con un timer).
Todo ha funcionado correctamente, hasta que he tenido que llamar a una aplicación externa.
Lo que tengo que hacer, es simplemente lanzar una aplicacion externa, un ejecutable, desde el servicio.

He probado con ShellExecute, WinExec... y nada.
He puesto trazas de seguimiento y pasa por el código. En principio, parece ser que lo lanza, pero no aparece la pantalla del ejecutable externo.
Si ejecuto el código pulsando un botón (por ejemplo), FUNCIONA OK... pero no me funciona con el servicio (que no tiene parte visual).
Aquí pongo el código del procedimiento.

*********
Procedure LanzaAplicacionExterna;
Var
ElHandle: THandle;
begin

TRY

Try
EscribeLog('Lanzo ejecutable de la Auto-Actualizacion', CadenaPath, EscribirEnLog);
ShellExecute(ElHandle, nil, 'C:AutoActualizacion.exe', nil, nil, SW_SHOWNORMAL);
EscribeLog('Lanzado', CadenaPath, EscribirEnLog);

Except
ON Err: Exception Do
Begin
EscribeLog('Error en la Auto-Actualizacion: ' + Err.Message, CadenaPath, EscribirEnLog);
End;
End;

FINALLY
END;

end;
********************

¿Qué hago mal?

Muchas gracias.
Un saludo.
Jose.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder