delphi 的GetTickCount计时用法缺陷及管制

1.常用方式

  var liNowTick : Integer; //局部变量
  var liOkTick : Integer; //全局变量
   liNowTick := GetTickCount div 1000; 
  if (liNowTick - liOkTick ) < 10 then
  begin
     continue;
  end;
  
  liOkTick  :=liNowTick ;

2.但是GetTickCount 折算成天是49.7。也就是说当服务程序连续跑了50会存在
例如 (liNowTick - liOkTick ) = - 4293000 即liNowTick < liOkTick的情况。

故针对这种情况就需要加上管制!!!

  var liNowTick : Integer; //局部变量
  var liOkTick : Integer; //全局变量
   liNowTick := GetTickCount div 1000; 
  if (liNowTick - liOkTick ) < 10 then
  begin
     if (liNowTick - liOkTick ) <  4293000  then  liOkTick :=0；
     continue;
  end;
  
  liOkTick  :=liNowTick ;