// Cette procédure permet de connaitre le temps d'inactivité sur un poste
// Renvoie le temps d'inactivité en millisecondes

PROCEDURE TempsInactivité()

MonInfo est un LASTINPUTINFO
nTempsActuel est un entier

SELON SysVersionWindows()
        CAS "32s","95","98","NT 3.5","NT 4"
                // L'API appelée n'est disponible qu'à partir de Windows 2000
                RENVOYER 0
FIN

// Mise à jour de la taille de la structure
MonInfo:nTaille = Dimension(MonInfo)

// Récupération du nombre de millisecondes qui s'étaient écoulées lors du dernier mouvement (souris ou clavier) et ce depuis
// le démarrage de l'ordinateur
API("user32","GetLastInputInfo",&MonInfo)

// récupération du nombre de millisecondes depuis le démarrage
nTempsActuel = API("kernel32","GetTickCount")

// Affiche la trace pour l'exemple
Trace(ChaîneConstruit("Il s'est écoulé %1 ms depuis la dernière activité",nTempsActuel - MonInfo:nTemps))

RENVOYER nTempsActuel - MonInfo:nTemps