Détecter le changement de minute

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...

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:

---

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 ...

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.

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