var
startTime: Cardinal;
begin
try
startTime := GetTickCount;
while True do begin
if((GetTickCount - startTime)/1000 )>=50 //间隔50秒执行一次
then begin
startTime:= GetTickCount;
//执行内容
end;
end;
except
Exit;
end;
end;
Delphi- GetTickCount 间隔50秒执行一次
最新推荐文章于 2023-08-16 16:57:22 发布