GetSystemTime API可以得到毫秒级时间

　　用Now返回的日期格式中年只有2位,即2000年显示为00, 这似乎不太令人满意. 此外Now和Time都只能获得精确到秒的时间，为了得到更精确的毫秒级时间，可以使用API函数GetSystemTime，它对应的TSystemTime类型的定义为：

　　TSystemTime = record

　　wYear: Word;

　　wMonth: Word;

　　wDayOfWeek: Word;

　　wDay: Word;

　　wHour: Word;

　　wMinute: Word;

　　wSecond: Word;

　　wMilliseconds: Word;

　　end;

　　显然，在程序逻辑中还能够方便地使用其结构成?时---各类时间值，因此使用函数GetSystemTime具有很大优越性。但该书中该函数的用法是错误的，通过查阅Windows SDK帮助可知，该函数原型为：

　　VOID GetSystemTime(LPSYSTEMTIME lpst)，参数指针lpst获取系统时间，因此可如以下程序段实现：

　　procedure TForm1.Button3Click(Sender: TObject);

　　var

　　SysTime: TsystemTime;

　　begin

　　GetSystemTime(SysTime);

　　Caption:=IntToStr(SysTime.wYear)+' '+IntToStr(SysTime.wMonth);

　　//if SysTime.wYear>2000 then

　　// ......在程序逻辑中利用获取的各类时间值

　　end;

　　综合以上讨论，获取当前系统时间利用函数GetSystemTime比较方便而且灵活。

http://blog.csdn.net/yanjiaye520/article/details/6259153