Comment obtenir une application DELPHI (qui fonctionne) pour faire quelque chose à un moment / date particulier

Vous avez besoin d'un composant de planification. Il y a Beaucoup de disponibilités , mais je ne peux pas sembler trouver gratuit . Vous pouvez toujours construire un vous-même, basé sur Timer, ou essayer d'accéder à API de planification des tâches.

Cependant, , ayant une minuterie qui exécute une tâche chaque minute pour vérifier si une tâche est due, est beaucoup plus simple

Vous pouvez utiliser mon CRON CONFORIANT Cromis Scheduler (link à archiver.org). Il soutient même certaines choses que Cron ne le fait pas. Événements basés sur les intervalles par exemple et à partir de / à la période. Je l'utilise dans beaucoup de mon logiciel et cela s'est avéré très utile. C'est gratuit, très léger, fonctionne dans des fils et est testé de la production. Si vous avez besoin d'aide supplémentaire, envoyez-moi un mail.

Les autres manières seraient:

1. Utilisez l'API de planification Windows comme déjà suggéré. Mais cela peut changer entre OS-ES.
2. Utilisez JCL qui a une unité de planificateur (composant dans la JVCL), mais j'ai trouvé que Un difficile à utiliser du code directement. C'est pourquoi j'ai écrit le mien.

Vous pourriez mettre en œuvre une sorte de communication inter processus dans votre programme et déclencher ces événements via ipc par un programme appelé à partir du service de planification de Windows. Cette approche présente l'avantage de ne pas avoir besoin d'écrire une interface utilisateur pour configurer le calendrier et que IPC pourrait s'avérer utile d'une autre manière.

Étant donné que votre application est en cours d'exécution, vous pouvez utiliser l'événement de ralenti pour voir si une date / heure prédéfinie s'est déjà écoulée et, le cas échéant, d'effectuer votre timing. Le seul effet secondaire de cette approche est que votre événement ne se déclenche pas si l'application est occupée, mais non plus une minuterie (pour que TTIMER fonctionne la file d'attente de message doit être traitée, ou l'application doit être "inactive" sauf si vous utilisez une minuterie filetée).

uses
  ...,DateUtils; // contains IncMinute

type
  TForm1 = Class(TForm)
    :
    procedure FormCreate(Sender: TObject);
  private 
    fTargetDate : tDateTime;
    procedure AppIdle(Sender: TObject; var Done: Boolean);
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fTargetDate := 0.0;
  Application.OnIdle := AppIdle;
  fTargetDate := IncMinute(Now,2);
end;

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
  if (fTargetDate <> 0.0) and (Now >= fTargetDate) then
    begin
      fTargetDate := 0.0;
      ShowMessage('started');
    end;
 end;