Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление приложением



Вернуться к списку функций
 Задержка, аналогична стандартным

 Прислал: PZ ( 4 декабря 2004 г. )
©  М.Фленов. "Программирование в Delphi глазами хакера", с. 294.
 Описание:
Задержка, аналогична стандартным, но не загружает процессор

 Зависимости:
WinApi

 Ограничения:
Windows XP, Delphi 7 - проверено. Ограничений нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Задержка, аналогична стандартным

Задержка, аналогична стандартным, но не загружает процессор

Зависимости: WinApi
Автор:       PZ, zaharov1206@yandex.ru
Copyright:   М.Фленов. "Программирование в Delphi глазами хакера", с. 294.
Дата:        4 декабря 2004 г.
***************************************************************** }

procedure Delay_Wait(amSecs : integer);
Var
  h : THandle;
begin
  h := CreateEvent(nil, true, false, '');
  WaitForSingleObject(h, amSecs);
  Closehandle(h);
end; { Delay_Wait }

 Пример использования:
Delay_Wait(1000); // Задержка в 1 с


Вернуться к списку функций

Наверх ▲    

Посмотри отборные лайфхаки на удобном сайте foxsovet.com.