本文整理自网络，侵删。
SetTimer 功能：定时API
使用API来做定时器是很简单的，主要就是一个SetTimer函数和KillTimer函数，
下面是一个简单的例子：
var
i :Integer = 0;
procedure TimerProc(hwnd:HWND;uMsg,idEvent:UINT;dwTime:DWORD); stdcall;
begin
inc(i);
Form1.Caption := IntToStr(i);
end;
procedure TForm1.FormCreate(Sender:TObject);
begin
SetTimer(Handle,10,500,@TimerProc);
end;
procedure TForm1.FormDestroy(Sender:TObject);
begin
KillTimer(Handle,10);
end;
其中SetTimer的第二个参数是这个定时器的ID，以便和其他的定时器区别开，第三个参数是时间间隔，
以毫秒为单位。
第四个参数是一个回调函数，每次定时的时间一到，
这个定时器便会通过第四个参数所传过来的地址去找到这个函数并执行。
相关阅读 >>
Delphi waitforsingleobject 响应窗体
Delphi2010:把stringgrid数据保存到excel
Delphi 10 seattle的android应用程序的主屏幕上创建快捷方式
更多相关阅读请进入《Delphi》频道 >>
