Es gibt einen sehr genauen Zeitmesser unter Windows. Hier ist er gekapselt. Der Code ist so banal, das es peinlich ist, aber es klappt ganz gut. Ganz genau ist es allerdings nicht, weil es ja auch ein paar microsekunden dauert, die Zeit selbst zu ermitteln.
Aufruf mit:
Delphi-Quellcode:
StartTimer (ID);
...
Showmessage (Format ('Hat %6.6f sekunden gedauert',[StopTimer(ID)]));