composant tache planifiee

**tintin62** · 27/10/2010, 17h26

Bonjour

je cherche un composant pour planifiee des
taches a Windows (delphi task scheduler)
Dans la Jvcl il en a un il parait
pouvez vous me dire le nom ou m'en conseiller
un
gratuit de preference pour Delphi7 perso

Merci avance

**medkyl** · 03/11/2010, 12h36

Bonjour,
dans la jcvl 3.4 il y a TJvScheduledEvents
a+

**tintin62** · 07/11/2010, 09h28

bonjour

Merci
quelqu' un saurait t'il me dire comment
on sent sert ?
Merci
++

**Charly910** · 07/11/2010, 14h35

Bonjour,

sinon, tu peux utiliser le programme schtasks de Windows.

tu crées un fichier bat qui contient la commande à lancer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   { création du fichier bat }
   AssignFile(F, FicBat);
   Rewrite(F);
   Writeln(F, 'schtasks /create /sc minute /mo '+IntToStr(TempsPing)+' /tn testPings /tr "\"' + FicBat1 + '\"" /ru system');
   CloseFile(F);

puis tu lances le bat depuis ton appli :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    BatFile := '/C ' + FicBat  ;
    ShellExecute( Application.Handle,'open', PChar(GetEnvironmentVariable('ComSpec')),
                 PChar(BatFile), PChar(RepBat),  SW_SHOW);

tu peux aussi créer d'autres fichiers bat pour surveiller la tâche, l'arrêter, ...

A+
Charly

**tintin62** · 07/11/2010, 17h40

Merci
c'est deja presque comme sa que je utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Cmd:='/C schtasks.exe /Create /SC daily  /TN '+ tname+' /TR ' +AppliPath ;
Cmd:=Cmd+' /st '+TimeToStr(T)+' /ed '+DateTimeToStr(d) ;
 ShellExecute(0, nil, 'cmd.exe', pansichar(cmd),nil, sw_normal);

Jaurai aimer avoir un composant pour mieux gerer les jours
heure et repetivité de la commande schtasks.exe

Merci

**Charly910** · 07/11/2010, 18h21

OK, désolé, je n'ai pas mieux

@+

Charly

**medkyl** · 10/11/2010, 15h07

bonjour tintin62

moi j'utilise cette fonction de la jcl.
a+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
procedure TForm1.AddDailyTask(TaskName:string;ApplicationName:string;WorkingDirectory:string;userid:string;password:string;Hour:integer);
var
   ATask:                             TJclScheduledTask;
   piNewTrigger:                      Word;
   ppTrigger:                         ITaskTrigger;
   pTrigger:                          _TASK_TRIGGER;
   nvYear:                            Word;
   nvMonth:                           Word;
   nvDay:                             Word;
   MyTriggerTypeUnion:                TRIGGER_TYPE_UNION;
   MyWeekly:                          TWeekly;
   FTask:TJclTaskSchedule;
begin
     FTask:=TJclTaskSchedule.Create;
     ATask:=FTask.Add(TaskName);
     ATask:=FTask.Add(TaskName);
     ATask.ApplicationName:=ApplicationName;
     ATask.WorkingDirectory:='WorkingDirectory';
     if userid <> '' then ATask.SetAccountInformation(userid,password);
     ATask.ScheduledWorkItem.CreateTrigger(piNewTrigger,ppTrigger);
 
     DecodeDate(Now,nvYear,nvMonth,nvDay);
 
     ZeroMemory(@pTrigger, sizeof(TASK_TRIGGER));
     pTrigger.cbTriggerSize:=sizeof(TASK_TRIGGER);;
     pTrigger.Reserved1:=0;
     pTrigger.wBeginYear:=nvYear;
     pTrigger.wBeginMonth:=nvMonth;
     pTrigger.wBeginDay:=nvDay;
     pTrigger.wEndYear:=0;
     pTrigger.wEndMonth:=0;
     pTrigger.wEndDay:=0;
     pTrigger.wStartHour:=Hour;
     pTrigger.wStartMinute:=00;
     pTrigger.MinutesDuration := 0;
     pTrigger.MinutesInterval := 0;
     pTrigger.rgFlags := 0;
     pTrigger.TriggerType:= TASK_TIME_TRIGGER_DAILY;
     MyWeekly.WeeksInterval:=1;
     MyWeekly.rgfDaysOfTheWeek:= TASK_SUNDAY +
                                 TASK_MONDAY +
                                 TASK_TUESDAY +
                                 TASK_WEDNESDAY +
                                 TASK_THURSDAY +
                                 TASK_FRIDAY +
                                 TASK_SATURDAY;
     MyTriggerTypeUnion.Weekly:=MyWeekly;
     pTrigger.Type_:= MyTriggerTypeUnion;
     pTrigger.Reserved2:=0;
     pTrigger.wRandomMinutesInterval := 0;
 
     ppTrigger.SetTrigger(pTrigger);
 
     ATask.Save;
 
    FreeAndNil(FTask);
end;
 
 
 
 
procedure TForm1.btn1Click(Sender: TObject);
begin
//AddDailyTask
AddDailyTask('Backup','backup.exe','c:\','user','mot de  passe',Heure);
 
end;