Delphi的DLL里如何实现定时器功能？

一，首先引入“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);