ПШвИ - ПЕРВЫЙ ШАГ в ИНТЕРНЕТ

МБОУ БСОШ №1 

Ваш IP: 44.200.169.3
  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта
ПУБЛИКАЦИИ / ПРОГРАММИРОВАНИЕ / Аналог процедуры Delay в Delphi

Аналог процедуры Delay в Delphi

Печать

Аналог процедуры Delay в Delphi

(Delay - задержка в миллисекундах)

не нагружает процессор компьютера

 

 

Функция задержки выполнения работы алгоритма программы без нагрузки процессора:

procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
   Event: THandle;
begin
   Event := CreateEvent(nil, False, False, nil);
 try
   Tick := GetTickCount + DWord(Milliseconds); 
    while (Milliseconds > 0) and
    (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
        begin
              Application.ProcessMessages;
              Milliseconds := Tick - GetTickcount;
        end;
   finally
     CloseHandle(Event);
  end;
end;

 

Добавить комментарий


Защитный код
Обновить

Авторизация

Анекдот

Случайная статья (КОМПЬЮТЕРЫ)

Массированная вирусная атака "черная" ПЯТНИЦА 12 мая 2017г.

Массированная вирусная атака "черная" ПЯТНИЦА 12 мая 2017г.

Вчера 12 мая 2017г. (пятница) в интернете была массированная вирусная атака (В виде блокирования виндовс путем шифрования данных на компьютере, ВИРУС-ВЫМОГАТЕЛЬ).

Подробнее ...

Измеряем скорость

1000ms = 1 секунда, 
1 Mbps (Мбит/с, Мегабит в секунду) = 0.125 MB/s (Мбайт/с, Мегабайт в секунду),
1 MB/s = 8 Mbps, 100 Mbps = 12.5 MB/s
 

Top.Mail.Ru Яндекс.Метрика
iikt  TIiIKT  ikt24.org.ru  gerb gerb