Timer viel zu ungenau?

[MrSpock]

Hallo,
QueryPerformanceCounter benutzt man wie folgt:

Delphi-Quellcode:

Var
  c, t1, t2 : int64;
  i : integer;

begin
  QueryPerformanceFrequency(c);
  QueryPerformanceCounter(t1);
  { hier die zu messende Aktion }
  QueryPerformanceCounter(t2);
  i := 1000000 *(t2 -t1) div c;
  ShowMessage(IntToStr(i) +' Mikrosekunden');
end;