Executer une tache une seule fois par jour

Résolu
cs_dahman Messages postés 40 Date d'inscription jeudi 8 juillet 2004 Statut Membre Dernière intervention 31 mars 2006 - 9 août 2005 à 10:57
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 9 août 2005 à 11:56
j ai un ptit prog qui doit faire une sauvgarde d un fichier une fois par jour comment je peux lancer cette tache une seule fois dans les 24 heurs

1 réponse

jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
9 août 2005 à 11:56
salut,

tu peux utiliser un timer et datetime;

en scrutant regulierement l'heure du systeme tu peux declencher l'execution d'une tache;

procedure TForm1.Timer1Timer(Sender: TObject);

var

DateTime : TDateTime;

str:string;

begin

DateTime := Time; // stocke la date et l'heure en cours

str := TimeToStr(DateTime); // convertit l'heure en une chaîne

if (str ='hh:mm:ss') then //tu choisi l'heure de declenchement

begin

execution de la tache;

end

end;

bonne prog
3
Rejoignez-nous