Для начала описываешь процедуру, которая будет вызываться по сообщению от таймера :
Code: |
procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall; begin // // Тело процедуры. end; |
а дальше в программе (например по нажатию кнопки) создаешь Таймер и вешаешь на него созданную процедуру
Code: |
uTimerID:=timeSetEvent(10,500,@FNTimeCallBack,100,TIME_PERIODIC); |
Подробности смотри в Help.Hу и в конце убиваешь таймер:
Code: |
timeKillEvent(uTimerID); |
И все. Точность этого способа до 1 мсек. минимальный интервал времени можно задавать 1 мсек.
Автор: Leonid Tserling
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!