Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Задержки ?   Найти похожие ветки 

← →
Mbo   (2002-01-11 14:46) [7]

var QW : TLargeInteger;

QueryPerformanceFrequency(QW);
ClockRate := QW.QuadPart;
QueryPerformanceCounter(QW);
StartTime := QW.QuadPart;
repeat
//Application.ProcessMessages;
QueryPerformanceCounter(QW);
TimeElapsed:=(QW.QuadPart - StartTime)/ClockRate;
until TimeElapsed ...

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c