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

МБОУ БСОШ №1 

Ваш IP: 100.24.113.182
  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта
ПОИСК ПУБЛИКАЦИИ ПРОГРАММИРОВАНИЕ Аналог процедуры 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;

 

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


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

Поиск по сайту

Новейшее из новостей

Предыдущая Следующая

Демоверсия по информатике ЕГЭ 2021 Инфор…

Демоверсия по информатике ЕГЭ 2021 Информатика Официальная демоверсия от ФИПИ на 2021 год. Изменения в КИМ ЕГЭ в 2021 году по сравнению с 2020 годом   В 2021 г. ЕГЭ по информатике и ИКТ...

Гречухин Николай Викторович - avatar Гречухин Николай Викторович 25 Окт 2020 Просмотров:56 ГИА и ЕГЭ

Подробнее

Как подключить сканер штрих-кода для ком…

Как подключить сканер штрих-кода для компьютера. Виды сканеров штрих-кодов. Программы для штрих-кодов.

Как подключить сканер штрих-кода для компьютера. Виды сканеров штрих-кодов. Программы для штрих-кодов.

Admin - avatar Admin 25 Июл 2020 Просмотров:248 КОМПЬЮТЕРы

Подробнее

Менеджер паролей KeePass

Менеджер паролей KeePass

Менеджер паролей KeePass KeePass Password Safe — бесплатная утилита (менеджер паролей),  программа позволяет хранить все ваши пароли, используя один главный мастер-пароль.

Admin - avatar Admin 24 Июл 2020 Просмотров:243 ПРОГРАММИРОВАНИЕ

Подробнее

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

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

НЕ безлимитный почтовый ящик, или Сказ про секретное ограничение Mail.ru

НЕ безлимитный почтовый ящик, или Сказ про секретное ограничение Mail.ru

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

Авторизация


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