Déclenchement d'un serviceRésolu

Question

Bonjour,

Je suis débutant sous delphi et j'ai donc besoin d'un coup de pouce pour mettre en place un service windows qui se déclenche en fonction des paramètres (fréquence, jour, heure) définis dans un fichier ini.

Pour le moment je ne vais pas utiliser de fichier ini je voudrais juste comprendre juste le fonctionnement en mettant les valeurs en dur dans le code ci dessous

TService1.ServiceExecute...

procedure TService1.ServiceExecute(Sender: TService);
begin
  Timer1.enabled := true;
  while not Terminated do
    ServiceThread.ProcessRequests(True);
  Timer1.enabled := true;
end;


TService1.Timer1Timer...

procedure TService1.Timer1Timer(Sender: TObject);
const
FileName = 'c:\logdate.txt';

var
F: TextFile;

begin

AssignFile(f,FileName);

if FileExists(FileName) then

  Append(f)

else

  Rewrite(f);
  writeln(f,DateTimeToStr(Now));
  CloseFile(f);

end;


Merci !

cs_cantador · Accepted Answer

Bonjour,

qui se déclenche en fonction des paramètres (fréquence, jour, heure) définis

Peut-être en utilisant une tâche windows ?

cantador

jinkas · Answer

Oui merci bcp !

Déclenchement d'un service

2 réponses

Votre réponse

Discussions similaires