timesetevent 的用法！ ( 积分: 50 )

想在控制台程序中使用&nbsp;&nbsp;timesetevent&nbsp;&nbsp;实现延时．．<br>不循环．．怎么搞？<br>最好能给个例子，，要代码．．呵呵．．谢谢各位神仙了．．<br>小弟初学菜鸟．．

转：<br>zhhc&nbsp;(2001-04-20&nbsp;16:56:00)&nbsp;&nbsp;<br>timeSetEvent(<br>&nbsp;&nbsp;&nbsp;&nbsp;UINT&nbsp;uDelay,&nbsp;//时间间隔(单位：毫秒）<br>&nbsp;&nbsp;&nbsp;&nbsp;UINT&nbsp;uResolution,//允许误差范围(单位：毫秒）<br>&nbsp;&nbsp;&nbsp;&nbsp;LPTIMECALLBACK&nbsp;lpTimeProc,//回调函数<br>&nbsp;&nbsp;&nbsp;&nbsp;DWORD&nbsp;dwUser,//用户自定义参数<br>&nbsp;&nbsp;&nbsp;&nbsp;UINT&nbsp;fuEvent&nbsp;//定时类型&nbsp;TIME_ONESHOT&nbsp;仅执行一次；&nbsp;TIME_PERIODIC&nbsp;每隔uDelay执行一次&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;<br>例：<br>procedure&nbsp;MyTimeProc(uID,uMsg,dwUser,dw1,dw2WORD);stdcall;<br>//定时响应函数<br>//uID&nbsp;&nbsp;TimeEvent的ID号，dwUser&nbsp;&nbsp;与timeSetEvent中的dwUser相同；&nbsp;uMsg,dw1,dw2保留未用<br>begin<br>&nbsp;count:=count+1;<br>end;<br><br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>begin<br>&nbsp;count:=0;<br>&nbsp;timeid:=TimeSetEvent(1,10,MyTimeProc,0,TIME_PERIODIC);<br>&nbsp;if&nbsp;timeid=0&nbsp;then&nbsp;ShowMessage('set&nbsp;failed');<br>end;

我测试怎么感觉有问题呢？程序界面忽大忽小的。

自己解决了．

http://topic.csdn.net/t/20030325/22/1576315.html

程序界面忽大忽小跟&nbsp;TimeSetEvent&nbsp;根本没关系,2楼的就是正确答案.

接受答案了.