Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 287 fois - Téléchargée 33 fois
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;
21 févr. 2007 à 15:16
J'adore ce post : rester humble et disponible... ca relève pas d'un clergé quelconque. Un propos humaniste c'est tout (et beaucoup)
10 janv. 2007 à 20:49
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.