Для начала описываешь процедуру, которая будет вызываться по сообщению от таймера :

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

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить