SetTimer 功能:定时API
2009-11-17 20:39 HYrz的菜园子 阅读(746) 评论(1) 编辑 收藏 举报
使用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,以便和其他的定时器区别开,第三个参数是时间间隔,
以毫秒为单位。
第四个参数是一个回调函数,每次定时的时间一到,
这个定时器便会通过第四个参数所传过来的地址去找到这个函数并执行。