Discussion :

[Micromalice]

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

[Cl@udius]

Salut

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

@+

[ShaiLeTroll]

Voici mes fonctions qui me facilite leur utilisation

Code :

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

1
2
3
4
procedure GetBeginTime(var Value: Int64);
begin
   QueryPerformanceCounter(Value);
end;

// Renvoie le nombre de milli secondes ...

Code :

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

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;