Описание:

           Останавливает выполнение программы на Time миллисекунд.

Параметры:

Time:cardinal — количество миллисекунд

Возвращаемое значение:

нет

Пример:

function GetTickCount:Cardinal; external ‘GetTickCount@Kernel32 stdcall’;

Procedure Button1OnClick();
var
     T:Cardinal

begin
        T := GetTickCount;
          Sleep(1000);
          T := GetTickCount — T;
          ShowMessage(intToStr(T));

end;

 

                 Тут мы получим диалоговое окно с количеством миллисекунд, прошедших от выполнения команды T := GetTickCount; до команды T := GetTickCount — T;, т.к. мы задали паузу 1000 миллисекунд, то и результат будет около 1000 миллисекунд.

Здесь GetTickCount — WinAPI функция возвращает количество миллисекунд с начала старта Windows. Поэтому мы вычисляем количество миллисекунд между первым ее вызовом и вторым. Необходимо учитывать, что данная функция имеет погрешность до 15-16 миллисекунд. Т.е. если паузу сделать не 1000, а 3: Sleep(3); То в сообщении мы получим 15 или 0. Измерить время точнее за 1 проход мы не можем.