请问Delphi中什么时间函数的计时能达到微秒级，如果没有毫秒级的也行

Question

如题

Answer 1

函数 Now 返回的就是当前时间，到毫秒级的。

Answer 2

好像有个win32API getSystemtime（）什么的，只是给你思路，查查Delphi的帮助把

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  TemDate : TdateTime;
begin
  TemDate := NOW();
  ShowMessage(DateTimeToStr(TemDate));
end; 好像用NOW显示的时间没有毫秒啊！

Answer 4

QueryPerformanceFrequency();
QueryPerformanceCount()用法;QueryPerformanceFrequency(Frequency);
QueryPerformanceCount(Start);
for i:=1 to 10000000 do
  ...
QueryPerformanceCount(End);time:=(End-Start)/Frequency;

Answer 5

procedure GetLocalTime(var lpSystemTime: TSystemTime); 函数可以达到毫秒级
  _SYSTEMTIME = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;
  TSystemTime = _SYSTEMTIME;