精确到毫秒的计时器，如何做呢？
我想实现这样的功能：
给定一个时间，比如12:20:30 005 这样一个时间，要求在这个时间启动一个函数

请问，我该如何实现呢？timer精确只能到300毫秒，我希望最少能精确到100ms


[解决办法]
用
QueryPerformanceFrequency和QueryPerformanceCounter


才能这么高的精度
[解决办法]
试试下边的代码能否满足需求

var
  TimeB, TimeE, F : Int64;
  d1 : Double;
  i, j: integer
begin
  QueryPerformanceFrequency(F);  //时钟频率
  QueryPerformanceCounter(TimeB);  //计时开始
  for i := 0 to 1000000 do
    j := i;

  QueryPerformanceCounter(TimeE);
  d1 := (TimeE - TimeB)/F*1000; 

  ShowMessage(FloatToStr(d1));  //d1毫秒级
end;