Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Задержки ?   Найти похожие ветки 

← →
MegaVolt   (2002-01-11 13:58) [6]

Вот принёс :)


var uTimerId:UINT;
//Старт таймер где:
//mS-Время в миллисекундах
//Error_mS допустимая ошибка формирования временного интервала в милисекундах
//RecVirtual функция вызываемая по срабатыванию таймера описывается так:
//procedure RecVirtual(uTimerID, uMessage: Uint; dwUser, dw1,dw2: DWORD) stdcall;


uTimerID:=TimeSetEvent(mS,Error_mS,@RecVirtual,100,time_periodic);
//Стоп
timeKillEvent(uTimerID);


Пользуйтесь на здоровье :)

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c