Ver Mensaje Individual
  #1  
Antiguo 31-10-2022
Diego200519 Diego200519 is offline
Registrado
 
Registrado: sep 2022
Posts: 5
Reputación: 0
Diego200519 Va por buen camino
Pasar parametros del programador de tareas a aplicación Delphi

Hola compañeros, un cordial saludo y espero se encuentren bien.

Estoy aquí para ver si me podrían ayudar con un problema, necesito elaborar un programa en delphi 10.2 que, usando Report Builder se ejecute todos los días a la misma hora para generar y enviar un reporte.

Pense en usar el programador de tareas de windows 10 para esto (no se si sea lo más apropiado), pero para eso tengo que programar la tarea junto con los datos del reporte, es decir, el nombre del archivo y la dirección en el disco duro, hasta ahora estaba intentando poner los parametros desde el programador de tareas en el campo de argumentos al momento de crear la tarea pero no he encontrado una forma de pasar esos argumentos a parametros en delphi, he buscado el documento en el cual windows guarda la tarea y tiene la siguiente presentación:

Código:
    <Date>2022-10-28T23:31:24.8269899</Date>
    <Author>DIEGOE\diego</Author>
    <URI>\12</URI>
  </RegistrationInfo>
  <Triggers>
    <CalendarTrigger>
      <StartBoundary>2022-10-28T23:31:08.1427293</StartBoundary>
      <Enabled>true</Enabled>
      <ScheduleByDay>
        <DaysInterval>1</DaysInterval>
      </ScheduleByDay>
    </CalendarTrigger>
  </Triggers>
  <Principals>
    <Principal id="Author">
      <RunLevel>LeastPrivilege</RunLevel>
      <UserId>DIEGOE\diego</UserId>
      <LogonType>InteractiveToken</LogonType>
    </Principal>
  </Principals>
  <Settings>
    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>
    <DisallowStartIfOnBatteries>true</DisallowStartIfOnBatteries>
    <StopIfGoingOnBatteries>true</StopIfGoingOnBatteries>
    <AllowHardTerminate>true</AllowHardTerminate>
    <StartWhenAvailable>false</StartWhenAvailable>
    <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>
    <IdleSettings>
      <Duration>PT10M</Duration>
      <WaitTimeout>PT1H</WaitTimeout>
      <StopOnIdleEnd>true</StopOnIdleEnd>
      <RestartOnIdle>false</RestartOnIdle>
    </IdleSettings>
    <AllowStartOnDemand>true</AllowStartOnDemand>
    <Enabled>true</Enabled>
    <Hidden>false</Hidden>
    <RunOnlyIfIdle>false</RunOnlyIfIdle>
    <WakeToRun>false</WakeToRun>
    <ExecutionTimeLimit>P3D</ExecutionTimeLimit>
    <Priority>7</Priority>
  </Settings>
  <Actions Context="Author">
    <Exec>
      Command>"C:\Users\diego\Documents\Embarcadero\Studio\Projects\Prueba de Componentes\Win32\Debug\pPru.exe"</Command>
      <Arguments>1 2 3 4</Arguments> (Estos son los argumentos que quiero pasar como parametros)
    </Exec>
  </Actions>
</Task
En fin, basicamente ese sería el problema que se me presenta, quiero pasar dichos argumentos como parametros a delphi cuando se ejecute la aplicación desde el programador de tareas, espero haberme expresado de la manera correcta y que haya quedado claro .

De antemano, si me pueden orientar en este tema, muchas gracias
Responder Con Cita