Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Ноя

Аналог функции sleep не останавливающий работу программы

Posted by Chas under Delphi

Подскажите, есть ли подобная функция, как Sleep, но которая не останавливает работу программы или как по-другому можно реализовать?

Человек_Борща
Вот маленький аналог sleep

procedure Delay(dwMilliseconds: Longint);

 var

   iStart, iStop: DWORD;

 begin

   iStart := GetTickCount;

   repeat

     iStop := GetTickCount;

     Application.ProcessMessages;

   until (iStop - iStart) >= dwMilliseconds;

 end;

тема на форуме