首页 > 代码库 > Delphi的DLL里如何实现定时器功能?

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

 

参考:

http://blog.csdn.net/sunylat/article/details/28859007