Discussion :

[Droïde Système7]

Bonjour tout le monde

http://edn.embarcadero.com/article/32736

Je viens de recevoir un message d'utilisateur, qui suite à la mise à jour d'un programme, ne peut plus installer la nouvelle version.

Après renseignements, il est sous W2K et la biblio idoine de cet OS ne doit pas être à jour ; même obsolète par rapport à l'appel de la fonction posant souci.

Voici donc ma question : existe t-il un code propre (sans timer, ni Sleep même non bloquant) afin d'obtenir idem des MessageBox temporisées ?

Merci d'avance de tout éclairage.

[ShaiLeTroll]

Un Timer ce n'est pas propre ?
Au final, un Timer ce n'est qu'un Event pulsé par l'OS !
En tout cas, c'est la méthode que j'ai utilisé (avec une barre de progression indiquant le délai de fermeture) et ce que j'ai vu ailleurs !

MessageBoxTimeOut, c'est une API probablement que MS se réserve le droit de modifier quand sa lui chante sans communiquer les évolutions, même la MSDN ne décrit pas cette fonction

[Droïde Système7]

ShaiLeTroll

Enfin je voulais dire par là que si l'on peut s'en passer, c'est toujours souhaitable.

Oui mais alors autant passer par un Sleep() non bloquant alors, qu'en penses-tu ?

Tu vas me dire qu'un Sleep() non bloquant est un timer déguisé

[ShaiLeTroll]

Un Sleep non bloquant, ça existe ça ?
En gros faire une boucle genre

Code :

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

1
2
3
4
5
while ElapsedMS(GetTickCount()) > 10000 {milli-secondes} do
begin
  sleep(1); // en réalité ça attendrait 1.995 ...
  Application.ProcessMessages(); // Faut bien pouvoir cliquer !
end;

Franchement, si c'est juste une patience utilisateur, ce n'est pas un code crucial pour les performances !
Tu me dirais que tu voudrais cadencer une centaine d'objet chacun avec une fréquence différente, je dirais que 100 timers, c'est vilain, mais là, euh ... on s'en fout un peu non ?

[Droïde Système7]

Question Sleep non bloquant, Je pensais à :

Code :

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

1
2
3
4
5
6
7
procedure WaitProcessMessages(Milliseconds: integer);
  var BeginTime: TDateTime;
begin
  BeginTime := Now;
  while MilliSecondsBetween(Now, BeginTime) < Milliseconds do
  Application.ProcessMessages;
end;

Mais oui après tout tu as raison ; même timer.

Merci, donc affaire résolue

J'espère que ce thread servira à plus d'un développeur, qui un de ces jours recevra des utilisateurs furieux ; lors de la mise à jour ça plantera avec message d'InsultBox

Bref pas de méthode MessageBoxTimeout sous Windows 2000 !

@+