![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Время затраченное на поиск файлов [D7, XP]
13 © (2006-02-20 20:23:00)программа производит поиск файлов на диске. Каким способом можно подсчитать время которое затрачено на поиск файлов. Если можно пример
13 (2006-02-20 21:19:00) [1]Virgo_Style APIспасибо большое
API (2006-02-20 20:50:00) [2]
uses
DateUtils;
...
var
Start: TDateTime;
begin
Start := Now;
// поиск файлов
ShowMessage(IntToStr(SecondsBetween(Start, Now)));
end;
см. также MinutesBetween, MilliSecondsBetween
Virgo_Style (2006-02-20 20:43:00) [3]
Start := Now;
...
Used := Now - Start;