如何做定时器？(不用Timer控件)(0分)

不用控件那就用winapi的时间函数

线程 + timeSetEvent + WaitForSingleObject ;(深度历险中的HiResTimer控件，代源码，1ms，Good!)

to creation-zy:
贴上来吧， 深度历险上不去。

哎！
为什么不给点分呢？也让我有点兴趣。


定时器？在哪里用的定时器呀？
如果实在程序当中的话可以用语句实现，如下：

var numsec:real;
; ; starttime:TTtime;
begin
; ; ; ;.
; ; ; ;.
; ; ; ;.
; ; starttime:=now;
; ; numsec:=1000;//指定时间间隔，也就是定时
; ; repeat
; ; ; ;application.processmessages;
; ; until now>starttime+numsec*(1/24/60/60);
; ; ; ;.
; ; ; ;.
end;

这段程序执行时如果还想执行其他进程，那你就要将
上面的程序放在一个线程中执行了。 ;：-）
好了，讲完了，希望对你有所帮助。
如果有的话，能不能给点......
咳...咳...咳

接受答案了.