Buenas
He modificado el codigo por esto:
Código Delphi
[-]procedure Tsv_actualiza.temporizadorTimer(Sender: TObject);
begin
if Not procesoenEjecucion then
begin
WinExec('calc',SW_SHOWNORMAL);
end;
end;
procedure Tsv_actualiza.ServiceExecute(Sender: TService);
begin
temporizador.Enabled := True;
while not Terminated do
ServiceThread.ProcessRequests(True);
temporizador.Enabled := False;
end;
Lo unico que hago es lanzar la calculadora, pero cuando ejecuto el servicio no se lanza la calculadora sin embargo en el administrador de tares aparece en memoria el proceso.¿por que no se ejucuta con normalidad?.Si me creo un servicio y lanzo el comando:
Código Delphi
[-]WinExec('calc',SW_SHOWNORMAL);
se ejecuta con normalidad.
En definitiva lo que busco es crear un servicio donde lance una aplicacion si no esta ejecutada y lo haga repetitivamente.
Pd. no consigo resaltar sintaxis en delphi , me dice que no tengo permisos.