documentation de GetPerformanceCounter/GetPerformancFrequency

Bonjour, tout est dans le titre,

Quelqu'un pourrait-il me dire quelle unité mettre dans les uses pour utiliser ces fonctions car je ne les trouve pas dans ma doc. (delphi7 edition professionnelle)
Et sans vouloir abuser une copie de doc. pourrait etre util si leur utilisation est compliquée...

merci

Salut

Dans l'unité Windows tu as QueryPerformanceFrequency et QueryPerformanceCounter. C'est ce que tu cherches ?

@+

Voici mes fonctions qui me facilite leur utilisation

Code:

---

1 2 3 4

procedure GetBeginTime(var Value: Int64); begin QueryPerformanceCounter(Value); end;

---

// Renvoie le nombre de milli secondes ...

Code:

---

1 2 3 4 5 6 7 8

function ElapsedTime(var BeginTime: Int64): Cardinal; var EndTime, TickPerSec: Int64; begin QueryPerformanceCounter(EndTime); QueryPerformanceFrequency(TickPerSec); Result := Round((EndTime - BeginTime) / TickPerSec * 1000); end;

---