Время работы программы

← →
-=Toshanius=- © (2004-05-03 08:44) [0]

Здравствуйте! Такая проблема: нужно узнать сколько времени работает консольная программа.(Например а паскале есть четырехбайтовая переменная по абсолютному адресу absolute $40:$6c, к которой каждую 1/18 секунды прибавляется единица).
Не подскажите что в Делфях придумать можно?

← →
SammIk © (2004-05-03 08:48) [1]

BOOL GetProcessTimes(
HANDLE hProcess, // handle to process
LPFILETIME lpCreationTime, // process creation time
LPFILETIME lpExitTime, // process exit time
LPFILETIME lpKernelTime, // process kernel-mode time
LPFILETIME lpUserTime // process user-mode time
);

← →
Gero © (2004-05-03 09:01) [2]

Аналог паскалевского absolute $40:$6c это GetTickCount, только количество тиков здесь увеличивается не в 1/18сек, а в 1/1000.

← →
SammIk © (2004-05-03 09:05) [3]

Можно еще использовать
RDTSC счетчик тиков процессора.
db 0fh,31h;RDTSC
Хех, думаю тебе это не нужно))
Но можно и так)

Всем спасибо!
GetTickCount()- оказалось вполне достаточно.

Время работы программы Найти похожие ветки