ejecutar aplicación cada hora

[valera]

Hola foro, espero que me puedan ayudar, estoy haciendo un sistema para un centro de computo y el rrollo es el siguiente:El centro empieza a dar servicio a partir de las 7 de la mañana, todos los usuarios reservan las pc´s por una hora, entonces cuando sean a las 8,9,10,11,etc en punto, el sistema tiene que cerrar todas las aplicaciones abiertas y deshabilitar los iconos del escritorio y mostrar la ventanita de acceso para que los usuarios que están trabajando nuevamente se registren.
cabe mencionar que en el momento de encender las maquinas y despues de cargar el S.O automaticamente se ejecuta la aplicación para que el usuario registre sus datos,ahora despues de que éste se resgistró,el sistema se minimiza en la barra de tareas, es decir que unavez encendida la maquina el sistema siempre va a estar en ejecución y cada vez que se llegue la hora el sistema se muestra.
Lo estoy intentando con timer pero todavia no encuentró como hacerle para que se visualize a la cada hora, tomando en cuenta que todas las maquinas se prenden exactamente a las 7. Por ejemplo un usuario puede encender la maquina 7:30 y a las 8 el sistema ya debe de deshabilitar todo.
Espero que alguien del foro me pueda ayudar y gracias.

[jafl1965]

Te servirá el programador de tareas de Windows?
O en su defecto, con el timer ir leyendo la hora del sistema y si se cumple tu condición entonces haces lo que necesitas.

[[Crandel]]

Hola, podes cada un minuto ir controlando la hora del sistema.
El timer tiene su intervalo en milisegundos, asi que debe valer 60000.
La hora la podes preguntar con la función "time" (creo que llamaba asi).
Luego tenes la funcion DecodeTime que te devuelve la hora,min y seg.
Chaqueas que haya pasado una hora de la ultima vez y listo

Suerte

[[Lepe]]

Código Delphi [-]

NextAlert := RecodeTime(Now, Hourof(now)+1,0,0,0); // a la hora siguiente en punto 
Faltan := millisecondsBetween(NextAlert, Now);
if faltan >0 then
begin
  timer1.interval := faltan;
  timer1.Enabled := true;
end

Creo que las rutinas estan en la unidad DateUtils.

Un saludo

[razek]

Puedes poner una condicion como la siguiente
if ((TimeToStr(Time)='08:00:00 a.m.') or (TimeToStr(Time)='09:00:00 a.m.') or (TimeToStr(Time)='10:00:00 a.m.') or (TimeToStr(Time)='11:00:00 a.m.')or (TimeToStr(Time)='12:00:00 p.m.')) then {... Codigo que desees ejecutar}
Solo agrega las demas horas que quieras.


Bueno ojala esto pueda servir

bye

[valera]

Disculpa que te moleste una vez mas, el codigo que me sugeriste efectivamente me da la siguiente hora en punto, pero ahora como le hago para comparar esta hora hora con la del sistema. Por tu ayuda muchas gracias