Création d'une tâche planifiée via un programme delphi!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 738 fois - Téléchargée 31 fois

Contenu du snippet

Au lieu d'aller sur Panneaux de configuration\Tâches planifiées pour créer ladite tâche, je vous propose un petit code qui permet d'en créer une rien qu'en cliquant sur un bouton de votre application!!
...bonne prog ;-)

Source / Exemple :


Procedure CreateBatFile(Cmd: String);
Const
BatName = 'TaskTmp.Bat' ;
Var
LS : TStrings;
FBAT : String;
Begin
LS := TStringList.Create;
 Try
 LS.Add(Cmd);
 LS.Add('Del '+BatName+' /q');
 FBAT := ExtractFilePath(ParamStr(0))+BatName;
 LS.SaveToFile(FBAT);
 ShellExecute(0,'Open',PChar(FBAT),Nil,Nil,SW_Hide);
 Finally
 LS.Free;
 End;
End;

Procedure CreateTask(TName,Login,Pass,AppliPath: String; T : TTime);
Var
Cmd : String;
Begin
Cmd:='schtasks /Create /tn "'+TName+'" /tr "\"'+AppliPath+'\" "';
Cmd:=Cmd+' /sc DAILY /st '+TimeToStr(T)+' /ru ';
Cmd:=Cmd+Login;
Cmd:=Cmd+' /rp "'+Pass+'"';
CreateBatFile(Cmd);
End;

procedure TForm1.Button1Click(Sender: TObject);
var
ps:TTime;
begin
 ps:=StrToTime('15:00:00');
 CreateTask('NAME','USER','PASSWORD','C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe',ps);
  //la tache planifiée créée étant WORD
end;

Conclusion :


j'attend vos critiques!!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
38
Date d'inscription
vendredi 2 mai 2003
Statut
Membre
Dernière intervention
9 décembre 2009

"beaucoup de code trés bien conçus sont quasiment inutile (de mes sources, de florenth et de delphiprog par exemple). parfois, un code simple peut susciter bien plus d'interet qu'un monstre de technique"

J'adore ce post : rester humble et disponible... ca relève pas d'un clergé quelconque. Un propos humaniste c'est tout (et beaucoup)
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
30
Je penser pas qu'un tel code pourrait generer autant de dejection bucale de votre part.
alors plutot que de "punir" l'auteur en bloquant sa source, je vais tout simplement nettoyer vos reponses et ce sans faire de distinction aucunes.

je retiendrais malgrés tout des reponses trés pertinentes de la part de certains comme quoi on peu juger la construction d'un programme, sa syntaxe mais en aucuns cas l'auteur ou l'utilitée du code (OHDelphi).
beaucoup de code trés bien conçus sont quasiment inutile (de mes sources, de florenth et de delphiprog par exemple). parfois, un code simple peut susciter bien plus d'interet qu'un monstre de technique.

voila.

merci de reprendre un debat constructif et objectif sur cette source.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.