【函数名】 GetTickCount
【库名】 kernel32
【说明】 用于获取自windows启动以来经历的时间长度(毫秒)
【返回值】 Long,以毫秒为单位的windows运行时间
通常用来计算某个操作所使用的时间:
Start:=GetTickCount;
...//执行耗时的操作
Stop:=GetTickCount;
TimeUsed:=(Stop-Start)/1000; //使用了xxx秒
也可以用来做延时程序:
Procedure TForm1.Delay(Msecs: Integer);
var
firstTickCount : real;
begin
firstTickCount := GetTickCount;
Repeat
Until ((GetTickCount - firstTickCount) >= longInt(Msecs));
end;
if ((GetTickCount - MktHQRefreshTime) div 1000) >= SSConfig.HqRefreshTime then //根据配置的时间回扫挂单
begin
MktHQRefreshTime := GetTickCount;
HSGDTradeTask(con);
t4 := Now;
AddLog(Format('行情回扫挂单,总耗时%5.2f ms', [(t4 - t3) * MSecsPerDay ]));
end;