Discussion :

[wezzar]

Bonjour,
J'aimerai savoir s'il existe un moyen directe (message windows par exemple) d'effectuer une procédure à chaque changement de minute, dans le cadre d'une application type planificateur ?
J'ai pour l'instant la solution de faire un SetTimer, mais cela ne me permet que de lancer la procédure avec 1 minute d'intervalle, pas forcement au moment de changement de minute...

[ero-sennin]

Salut,

Si je comprends bien, tu veux que lorsque l'heure de windows change toutes les minutes, tu effectues une opération ...
J'ai fait un truc vite fait (qui est peut être pas trop mal ... mais qui a une précision d'une seconde) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  Form1: TForm1;
  MinSauvegarde:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MinSauvegarde:=StrToInt(copy(TimeToStr(now),4,2));
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Si on n'effectue pas l'action toute les minutes
  if Timer1.Interval <> 60000 then
  begin
    // Si on a changé de minute
    if StrToInt(copy(TimeToStr(now),4,2))<>MinSauvegarde then
    begin
      // On change l'interval à une minute vu qu'on s'est calé sur l'heure Windows
      Timer1.Interval:=60000;
      // Traitement
  end
  else
    // Traitement
end;

En fait, j'utilise un timer. au début de l'application, le timer est réglé sur une seconde pour que l'on récupère le premier changement de minutes au niveau de Windows. Une fois cela effectué, on peut changer l'intervalle à 1 minutes pour libérer les ressources. C'est vraiment du bricolage ...

[Graffito]

Bonjour,

Petite adaptation du code de ero-sennin, pour éviter toute dérive dans le temps:

Dans TForm1.Timer1Timer, on règle l'intervalle du timer au nombre de secondes restantes pour atteindre 60.

Exemple: si now=12:34:45 on règle le timer à 15 secondes.

[wezzar]

A défaut d'avoir un message Windows, cette idée me plait bien, ça évite de faire des "if secondes=0" à chaque seconde ^^