延时函数

最新推荐文章于 2023-09-12 17:57:45 发布

xp1798

最新推荐文章于 2023-09-12 17:57:45 发布

阅读量356

点赞数

文章标签： delphi 延时

 
      //延迟函数：方法一 
     
      procedure  
      delay(msecs: 
      integer 
      ); 
     
      var 
     
      Tick: DWord; 
     
      Event: THandle; 
     
      begin 
     
      Event := CreateEvent( 
      nil 
      ,  
      False 
      ,  
      False 
      ,  
      nil 
      ); 
     
      try 
     
      Tick := GetTickCount + DWord(msecs); 
     
      while  
      (msecs >  
      0 
      )  
      and  
      (MsgWaitForMultipleObjects( 
      1 
      , Event,  
      False 
      , msecs, QS_ALLINPUT) <> WAIT_TIMEOUT)  
      do 
     
      begin 
     
      Application 
      . 
      ProcessMessages; 
     
      msecs := Tick - GetTickcount; 
     
      end 
      ; 
     
      finally 
     
      CloseHandle(Event); 
     
      end 
      ; 
     
      //延迟函数：方法二 
     
      procedure  
      Delay(dwMilliseconds:DWORD); 
      //Longint 
     
      var 
     
      iStart,iStop:DWORD; 
     
      begin 
     
      iStart :=   GetTickCount; 
     
      repeat 
     
      iStop  :=   GetTickCount; 
     
      Application 
      . 
      ProcessMessages; 
     
      until  
      (iStop  -  iStart) >= dwMilliseconds; 
     
      end 
      ;