![Delphi的DLL里如何实现定时器功能? Delphi的DLL里如何实现定时器功能?](https://image.shishitao.com:8440/aHR0cHM6Ly9ia3FzaW1nLmlrYWZhbi5jb20vdXBsb2FkL2NoYXRncHQtcy5wbmc%2FIQ%3D%3D.png?!?w=700&webp=1)
一,首先引入“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