Crear un servicio en delphi

[heroe]

Otra opción, y por cierto más sencilla es usar un componente Timer. En el evento OnTimer puedes poner tu código que se vería algo así:

Código Delphi [-]
 If Timer1.Interval = 1000 then
 begin
 if Not procesoenEjecucion then     
  begin                 
    WinExec('calc',SW_SHOWNORMAL);     
  end;
 end;

Recuerda que el Interval esta expresado en milisegundos