想做个跟定时器相似的功能函数？

Question

现在想做个跟定时器想类似的功能函数,设定一个初始值,然后一直减1，直到为零时触发某事件.现在不知道这个功能函数放在哪里才可以像Timer那样子一直运行?

Answer 1

用API，settimer,killtimer好了，就是定时器，不过不用控件

Answer 2

settimer就是定时器啊，它里面的参数，你看看帮助好了，第三个就是时间
UINT SetTimer(    HWND hWnd, // handle of window for timer messages
    UINT nIDEvent, // timer identifier
    UINT uElapse, // time-out value
    TIMERPROC lpTimerFunc  // address of timer procedure
   );
可以这样用
procedue asf;
begin
  showmessage('');
end;
SetTimer(Applicatin.Handle,1,1000,@Asf);