Delphi用API设置定时器SetTimer

 是有的时候我们不希望使用TTimer来做定时器，比如在写一个控件的时候，
当然内部使用的组件越少越好，以避免发生兼容性的问题。
使用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，以便和其他的定时器区别开，第三个参数是时间间隔，
以毫秒为单位。
第四个参数是一个回调函数，每次定时的时间一到，
这个定时器便会通过第四个参数所传过来的地址去找到这个函数并执行。