当前位置: 开源爱好者 » 编程教程 » Delphi教程 » 正文

Delphi控制某一线程终止N秒

  • 时间:2018-02-01
  • 简述:线程

Delphi控制某一线程终止N秒,让线程终止n秒时间:

procedure Delay(MSecs: Longint);//延时函数,MSecs单位为毫秒(千分之1秒)
var
FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount();
  repeat
    Application.ProcessMessages;  
    Now := GetTickCount();  
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

注意:Sleep(n毫秒)是程序暂停n毫秒,有可能会出现程序假死现象。

CopyRight 2015© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图