标签：eve blog use 定时器 代码 log std 过程 integer
一，首先引入“mmsystem”单元。
二，启动定时器。
var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);
三，定时器过程代码：
procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); stdcall; begin // 业务代码 end;
四，结束定时器：
timeKillEvent(MMTimerID);
标签：eve blog use 定时器 代码 log std 过程 integer
原文地址：http://www.cnblogs.com/sunylat/p/6095628.html
