在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);