скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Реализация функции Delay 4



Оформил: DeeCo


 // 4. Combined Delay 

{ 
  Including the Sleep in the loop prevents the app from hogging 
  100% of the CPU for doing practically nothing but running around the loop. 
}

 procedure PauseFunc(delay: DWORD);
 var
   lTicks: DWORD;
 begin
   lTicks := GetTickCount + delay;
   repeat
     Sleep(100);
     Application.ProcessMessages;
   until (lTicks <= GetTickCount) or Application.Terminated;
 end;






Copyright © 2004-2018 "Delphi Sources". Delphi World FAQ


ASPack

Продукт ASPack предназначен для архивации исполняемых файлов под Win32 и защиты от непрофессионального реверс-инжиниринга. ASPack позволяет уменьшать размер файлов и библиотек до 70%, что также позволяет сокращать время загрузки таких приложений в локальных сетях и Интернет.



Группа ВКонтакте   Facebook   Ссылка на Twitter