![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
точное отслеживание времени
tickler © (2006-04-30 21:24:00)Как организовать точное слежение за временем? Таймер дает заметную задержку уже через несколько секунд. Нужно знать сколько прошло милисекунд с момента запуска программы.
Юрий Зотов (2006-05-01 02:11:00) [21]> DevilDevil © (01.05.06 01:40) [5]
> функция возвращает время работы приложения в миллисекундах
ЭТА функция возвращает время работы СИСТЕМЫ с момента старта приложения.
Само же приложение за все это время могло ни разу не получить процессорного времени. То есть, все это время оно могло не работать.
DevilDevil (2006-05-01 01:40:00) [22]
var
StartTickCount : integer;
// OnCreate
StartTickCount := GetTickCount;
...
// функция возвращает время работы приложения в миллисекундах
function GetWorkTime : integer;
begin
Result := GetTickCount - StartTickCount;
end;
Anatoly Podgoretsky (2006-04-30 23:24:00) [23]Таймер не для отслеживания времени, а для получения интервалов с той или другой погрешностью.
Для точного отслеживания времени используй GetPerformanceCounter или в крайнем случае GetTickCount
tickler (2006-04-30 21:44:00) [24]спасибо =)
Юрий Зотов (2006-04-30 21:42:00) [25]Cм. ф-ции Date, Time, GetTickCount. При запуске вызываем и запоминаем результат. Потом снова вызываем и вычисляем искомое.
Zeqfreed (2006-04-30 21:39:00) [26]
Now()