ejecutar codigo de delphi cada 24 horas

[Casimiro Noteví]

Pero si sólo quieres que se ejecute a una hora determinada, entonces te sobra bastante de ese código, quedaría algo así como:

Código Delphi [-]
private
  var
    bProcesado : boolean;  <- poner a false en el oncreate o en onshow 

...
...
...

procedure TFrm_Menu.RelojTimer(Sender: TObject);
var
  ho,mi,se,mm : Word;
  bProcesado : boolean;
begin
  bProcesado := false;
  Decodetime(now, ho,mi,se,mm);
  if (ho=0) and (mi=0) and (se=0) and (not bProcesado) then
    HacerLoqueTengasQueHacer();
end;


procedure HacerLoQueTengasQueHacer();
begin
  loquesea;
  otracosa;
  //
  bProcesado := true;
end;

La variable bProcesado sirve por si tarda más de un segundo en HacerLoQueTengasQueHacer que no lo vuelva a ejecutar.

[richy08]

pues en realidad no el codigo que puse lo hice para darle presentacion a la aplicacion indicando el tiempo y la fecha en la que estamos, muchas gracias por tu ayuda me diste una luz para poder programarlo mil gracias por tu tiempo

[Casimiro Noteví]

Para eso puedes simplificarlo con los parámetros de FormatDateTime, ejemplos:

Código Delphi [-]
stb_panel.Panels[1].Text:= FormatDateTime('dd-mm-yyyy hh:nn',Now);

Código Delphi [-]
stb_panel.Panels[1].Text:= FormatDateTime('ddd. dd/mm/yyyy  hh:nn',Now);

[richy08]

si tiens mucha razon no lo habia pensado asi

[richy08]

Empezado por Casimiro Notevi

Pero si sólo quieres que se ejecute a una hora determinada, entonces te sobra bastante de ese código, quedaría algo así como:

Código Delphi [-]private var bProcesado : boolean; <- poner a false en el oncreate o en onshow ... ... ... procedure TFrm_Menu.RelojTimer(Sender: TObject); var ho,mi,se,mm : Word; bProcesado : boolean; begin bProcesado := false; Decodetime(now, ho,mi,se,mm); if (ho=0) and (mi=0) and (se=0) and (not bProcesado) then HacerLoqueTengasQueHacer(); end; procedure HacerLoQueTengasQueHacer(); begin loquesea; otracosa; // bProcesado := true; end;


La variable bProcesado sirve por si tarda más de un segundo en HacerLoQueTengasQueHacer que no lo vuelva a ejecutar.

me quede pensando en la parte del codigo donde usas la variable bProcesado, la idea es que la aplicacion se este ejecutando siempre asi es que no volveria a ejecutarse hasta que se cerrara y se abriera el programa pero vi algo que sifnifica esto
(ho=0) and (mi=0) and (se=0) = 12:00 de la mañana si es asi esto
indica (ho=59) and (mi=59) and (se=59) esto seria las
12 de la noche??

gracias

[arturom]

Hola,
ho=0 son las 0 horas,
mi=0 es el minuto 0,
se=0 es el segundo 0,
00:00:00 son las 12 de la noche.
Como no existe la hora 59, pero si los 59 minutos y 59 segundos, si usas, por ejemplo, las 23:59:59 es justo un segundo antes de la media noche.
Las doce del medio día serán entonces las 12:00:00

Saludos

[richy08]

Empezado por arturom

Hola,
no existe la hora 59, pero si los 59 minutos y 59 segundos, si usas, por ejemplo, las 23:59:59 es justo un segundo antes de la media noche.

Saludos

tienes razon jejej bueno ya es fin de semana creo que con esto ya puedo segui adelante gracios a los dos buen fin de semana

[Ñuño Martínez]

Sé que llego tarde pero, ¿no sería mejor dejar que sea el sistema operativo quien se encargue? Programas un "cron" (o lo que sea que tenga Windows, que no lo recuerdo) y a correr...

[richy08]

ñuño martines pues si tiens razon seria una buea opcion