begin process at 2010 02 10 01:35:01
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Exécution

 > CRÉATION D'UNE TÂCHE PLANIFIÉE VIA UN PROGRAMME DELPHI!

CRÉATION D'UNE TÂCHE PLANIFIÉE VIA UN PROGRAMME DELPHI!


 Information sur la source

Note :
7,33 / 10 - par 3 personnes
7,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Exécution Classé sous :tâche, planifiée, lancement, exécution Niveau :Débutant Date de création :03/01/2007 Vu :5 756
Auteur : othland

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

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

  • 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; 
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!!


 Sources de la même categorie

Source avec Zip GÉNÉRATEUR DE JET DE DÉS par koriteki
Source avec Zip Source avec une capture LES FIBERS : DES THREADS NON PRÉEMPTÉS PAR LE SYSTÈME par Caribensila
Source avec Zip Source avec une capture UAC (USER ACCOUNT CONTROL) - EXÉCUTER UNE APPLICATION EN TAN... par ni69
BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE par craftsystem
Source avec Zip UTILISER LES MESSAGES WINDOWS POUR GERER LE NOMBRE D'INSTANC... par lotfi213_b19
Toutes les sources de la catégorie Exécution

 Sources en rapport avec celle ci

Source avec Zip LANCER UNE ACTION EN DIFFÉRÉ par Lassal
Source avec Zip VERIFICATION D'EXECUTION DU DELPHI "DELPHI32" par abdousoft
Source avec Zip COMPOSANT DYNAMIQUE : COMMENT CODER POUR UN COMPOS NON ENCOR... par Caribensila

Commentaires et avis

Commentaire de f0xi le 10/01/2007 20:49:25 administrateur CS

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.






Commentaire de pers le 21/02/2007 15:16:50

"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)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

tâche planifiée à partir de Delphi!!??? [ par othland ] slt tlm;je veux créer une tâche planifiée à partir de mon programme delphi!et je ne trouve pas comment faire!!merci pour votre aide!!! Integere une tâche planifiée dans mon prog [ par kam81 ] bonsoir,est il possible d'integrer une tache planifiée créee sous windows dand mon prog? Problème au lancement d'une application externe [ par John Dogget ] Salut à tous. Je souhaiterais lancer le bloc-note windows pour editer un fichier depuis mon application, mais je n'y arrive pas ... Voici ce que j'a exécution de procédure de la forme principale depuis des formes crées en dynamique [ par Bestdoud ] Bonsoir, j'aurais aimé savoir s'il était possible d'exécuter une procédure appartenant à une forme à partir d'une autre forme crée dynamiquement. Je Fiche projet au lancement de DELPHI [ par yvessimon ] Lorsque je lance delphi il prend par défau un projet type iw*.Hors je souhaite qu'il prend par défaut une fiche projet standard .Ou doit on MoouseDown, MouseUp : exécution/arrêt boucle [ par orelien ] Bonjour, Je suis à la recherche d'un moyen pour exécuter une action (lancement d'une procédure en boucle par exemple) lors que je laisse le bouton d Tuer une tâche à la fermeture de Windows [ par f6dqm1 ] BonjourEn testant Vade_Retrtro pour Outlook Express, je m'aperçois que ce programme me plante Win98 à la fermeture du système par une erreur système T Exécution automatique a partir d'une clé USB [ par bidulchouette ] Bonjour a tous ! Je cherche le moyen de lancer automatiquement une application que j'ai développé sous delphi7 et qui est stockée sur une clé USB.On m première exécution [ par maxsecurite2 ] Bonjour,J'aimerai savoir comment faire pour faire afficher un message à la première exécution d'un programme (la toute première pas la première par se Ajouter des items à un TComboBox à l'exécution [ par new2000 ] Bonjour! J'ai toujours eu une question me venant en tête de savoir: comment est ce on peut inserer (ou ajouter) des items dans un Tcombobox en runti


Nos sponsors


Sondage...

Comparez les prix


Archos 5 (250 Go)
Entre 440€ et 440€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,827 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)