Dire depuis combien de temps tourne le pc(gettickcount - exemple d'utilisation)

Commenter

Contenu du snippet

Bon, c'est un exemple tout con qui affiche dans une message box le temps depuis lequel le pc est allumé grave a la fonction gettickcount qui retourne le temps en ms, si vous ne comprenez pas, allez réviser vos maths :p
Il vous faut une forme, et un bouton, dans lequel vous mettrez ce code dans l'évènement onclick.

Source / Exemple : 


procedure TForm1.Button1Click(Sender: TObject);
var jours, heures, minutes, secondes, millisecondes : integer;
begin

jours := gettickcount div (1000*60*60*24);
heures := (gettickcount - (jours*1000*60*60*24)) div (1000*60*60);
minutes := (gettickcount - (jours*1000*60*60*24) - (heures*1000*60*60)) div (1000*60);
secondes := (gettickcount - (jours*1000*60*60*24) - (heures*1000*60*60) - (minutes*1000*60)) div (1000);
millisecondes := (gettickcount - (jours*1000*60*60*24) - (heures*1000*60*60) - (minutes*1000*60) - (secondes*1000));// div (1);

MessageBoxA(0,Pchar(format('Pc lancé depuis: %d jours, %d heures, %d minutes, %d secondes et %d millisecondes', [jours, heures,minutes,secondes,millisecondes])),Pchar('Temps d''éxécution:'),0 + MB_ICONINFORMATION + 0);
end;

Conclusion :


Ca peut toujours servir a quelqu'un ;)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (retaks666)