timerID := timeSetEvent
(
StrToInt(txtTimeInterval.Text), //Интервал между
//срабатываниями таймера
timeGetMinPeriod(), //Точность таймера
TimerProc, //Адрес процедуры, вызываемой при каждом
//срабатывании таймера
0, //Параметр, передаваемый в процедуру
//обратного вызова
TIME_CALLBACK_FUNCTION or TIME_PERIODIC //Тип таймера
);
В приведенном выше отрывке программы с помощью функции timeSetEvent происходит регистрация и запоминание адреса процедуры TimerProc, вызываемой периодически при срабатываниях таймера. При успешном создании таймера функция timeSetEvent возвращает ненулевое значение – идентификатор созданного таймера. Оно может использоваться в дальнейшем для определения, какой именно таймер сработал. Значение, возвращенное функцией timeSetEvent, также необходимо при удалении таймера: