unit UnitMSec;
interface
uses Windows;

function now_ms:TDateTime;

implementation
var
  pcount:TLargeInteger;
  tick:TDateTime;

function now_ms;
var qq,yy:TLargeInteger;
    q:comp absolute qq;
    y:comp absolute yy;
    p:comp absolute pcount;
begin
   QueryPerformanceFrequency(qq);
   QueryPerformanceCounter(yy);
   Result:=tick+(y-p)/(24*3600*q);
end;

initialization
  QueryPerformanceCounter(pcount);
  tick:=now;
end.

                          http://www.psnet.ne.jp/lereaux/
師走。大雪、寒風の宴 FDELPHI ☆ 瑠瓏 <KHB05271@niftyserve.or.jp>
                      FJBUILDR    Sat,12/13/97  10:58

Original document by 瑠瓏            氏 ID:(KHB05271)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。