Для начала описываешь процедуру, которая будет вызываться по сообщению от
таймера :
|
|
procedure
FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);
stdcall; begin
//
// Тело процедуры. end;
|
а дальше в программе (например по нажатию кнопки) создаешь Таймер и вешаешь
на него созданную процедуру
|
|
uTimerID:=timeSetEvent(10,500,@FNTimeCallBack,100,TIME_PERIODIC); |
Подробности смотри в Help. Hу и в конце убиваешь таймер
И все. Точность этого способа до 1 мсек. минимальный интервал времени можно
задавать 1 мсек.
Обратите внимание на то, что все CALLBACK-функции, вызываемые Windows, должны
использовать соглашение о вызовах stdcall. |