《WaitableTimer(等待定时器对象)与WaitableTimer对象的回调函数》由会员分享，可在线阅读，更多相关《WaitableTimer(等待定时器对象)与WaitableTimer对象的回调函数（12页珍藏版）》请在金锄头文库上搜索。
1、Wa i t a bl e T i m e r (等待定时器对象)与Wa i t a bl e T i m e r对象的回调函数本次专门研究下S e t Wa i t a bl e T i m e r的第二个参数(起始时间) .它有正值、负值、0值三种情况,前面已用过0值.先学习负值(相对时间) ,也就是从当前算起隔多长时间开始执行.这个相对时间是以1/ 100纳秒为单位的,譬如赋值3*10000000相当于3秒.1 s (秒) = 1, 000 m s (毫秒) ;1 s (秒) = 1, 000,000 s (微妙) ;1 s (秒) = 1, 000,000,000 ns (纳秒) ;1
2、 s (秒) = 1, 000,000,000,000 ps (皮秒) ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -本例效果图:- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3、- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -代码文件:- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -unit U ni t 1;i nt e r f a c eus e sWi ndows , Me s s a ges , S ys Ut i l s
4、 , Va r i a nt s , C l a s s e s , G r a phic s , C ontr ols , F or m s ,D i a l ogs, S t dCt r l s ;t ypeT F orm 1 = c l a s s ( T F orm )B ut t on1:T But t on;pr oce dure B ut t on1Cl i c k( S e nder : T O bje c t ) ;pr oce dure F or m D e s t r oy(S e nder : T O bje c t ) ;e nd;varF or m 1: T F o
5、rm 1;i m pl e m e nt a t i on $R *. dfm varf : I nt e ger ;hWa i t a bl e T i m e r : T Ha ndle ;f unct i on MyThr e a dFun(p: P oint e r ) : D WO R D ; s t dca l l ;vari , y: I nt e ger ;begi nI nc( f ) ;y : = 20 * f ;i f Wa i t F or S i ngle O bj e c t ( hWa i t a bl e T i m e r , I N F I N I T E
6、) = WAI T _OB J E C T _0 t henbegi nf or i : = 0 t o 1000dobegi nF or m 1.C a nvas . L oc k;F or m 1.C a nvas . T e xt O ut ( 20, y , I nt T oSt r ( i ) ) ;F or m 1.C a nvas . Unl oc k;S l e e p( 1) ;e nd;e nd;R e s ult : = 0;e nd;pr oce dure T F orm 1. But t on1Cl i c k( S e nder : T O bje c t ) ;v
7、arT hre a dI D : D WO R D ;D ueT i m e : I nt 64;begi nhWa i t a bl e T i m e r : = C r e a t e Wa i t a bl e T i m e r ( ni l , T r ue, nil ) ;D ueT i m e : = - 3*10000000; 3秒钟后执行S e t Wa i t a bl e T i m e r ( hWa i t a bl e T i m e r , D ueT i m e , 0, nil , nil , F a l s e ) ;R e pai nt ; f : =
8、0;C r e a t e T hr e a d( nil , 0, MyThr e a dFun, nil , 0, T hr e a dI D ) ;C r e a t e T hr e a d( nil , 0, MyThr e a dFun, nil , 0, T hr e a dI D ) ;C r e a t e T hr e a d( nil , 0, MyThr e a dFun, nil , 0, T hr e a dI D ) ;e nd;pr oce dure T F orm 1. F orm D e s t r oy(S e nder : T O bje c t ) ;
9、begi nC l os e H a ndle ( hWa i t a bl e T i m e r ) ;e nd;e nd.- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -窗体文件:- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
10、- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -obje c t F or m 1: T F orm 1L e f t = 0T op = 0C a pt i on = F orm 1C l i e nt H e i ght = 116C l i e nt Wi dt h = 179C ol or = c l B t nFa c eF ont. C har s e t = D E F AU L T _CHA R S E TF ont. C olor = c l Wi n
11、dowT e xtF ont. He i ght = - 11F ont. N a m e = T a homa F ont. S t yle = O l dCr e a t e O r der = F a l s eO nDe s t r oy = F or m D e s t r oyP i xel s P e r I nch = 96T e xt He i ght = 13obje c t B ut t on1:T But t onL e f t = 96T op = 83Wi dt h = 75H e i ght = 25C a pt i on = But t on1T a bOr d
12、er = 0O nCl i c k = B ut t on1Cl i c ke nde nd- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -当我们需要一个绝对时间时,譬如2009-2-18 13:10:5,函数需要的I nt 64值应该是个T F i l e T i m e格式的时间.先看三种相关时间类型( T F i l e
13、T i m e、T S yst e m T i m e、T D a t e T i m e )的定义:- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -T F i l e T i m e (又名F I L E T I ME或_FI L E T I ME )_FI L E T I ME = r e c or ddwL owD a t
14、 e T i m e : D WO R D ;dwHi ghDa t e T i m e : D WO R D ;e nd;T S yst e m T i m e (又名S YS T E M T I ME或_SYS T E M T I ME )_SYS T E M T I ME = r e c ordw Ye a r : Word;w Month: Wor d;w D a yOf We e k: Wor d;w D a y: Wor d;w Hour: Word;w Mi nute : Wor d;w S e c ond:Word;w Mi l l i s e c onds: Wor d;e
15、nd;T D a t e T i m e = t ypeD ouble ;/ / T F i l e T i m e相当于一个I nt 64,一般要通过给T S yst e m T i m e或T D a t e T i m e赋值,然后转换过去./ /在例子中我是通过下面过程转过去的:S t r T o D a t e T i m e - D a t e T i m e T oSys t e m T i m e - S ys t e m T i m e T oFi l e T i m e - L oc a l F i l e T i m e T oFi l e T i m e- - - -
16、- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -下面程序指定在2009年2月1 8号下午1点1 0分5秒时运行三个线程(窗体同上,我已找了个合适的时间测试成功) .- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -unit U ni t 1;i nt e r f a c eus e sWi ndows , Me s s a ges , S ys Ut i l s , Va r i a nt s
