本文整理自网络，侵删。
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 将image组件的图片保存为jpg格式图片方法
Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta
Delphi 简单的操作memo1剪切 复制 粘贴 撤销 全选 清空
更多相关阅读请进入《Delphi》频道 >>
