直接先参考下面的代码段，很简单很直白很方便　　　　　　　　

var currentTime:TSystemTime; year, month, day, hour, minute, second, millisecond: string; datetime: string; begin GetSystemTime(currentTime); year:= IntToStr(currentTime.wYear); month:= IntToStr(currentTime.wMonth); day:= IntToStr(currentTime.wDay); hour:= IntToStr(currentTime.wHour + 8); minute:= IntToStr(currentTime.wMinute); second:= IntToStr(currentTime.wSecond); millisecond:= IntToStr(currentTime.wMilliseconds); datetime:= year + ‘-‘ + month + ‘-‘ + day + ‘ ‘ + hour + ‘:‘ + minute + ‘:‘ + second + ‘:‘ + millisecond; ShowMessage(datetime); end;

需要注意的是　　　　　　　　　　　　　　　　　　　　　　　　

时间的小时数问题

　　和C家族的语言（比如C、C++、PHP）一样，这种方式获取的时间，年、月、日、分钟、秒、毫秒都是，但是获取的小时数是晚了8小时的，，比如当前时间是19:30，但是使用这种方法得到的小时数是11点，所以在进行开发的时候，这个问题需要单独处理一下。

　　这也是为什么上面的代码中小时数会加8的原因：hour:= IntToStr(currentTime.wHour + 8);

需要引入的单元

　　要使用TSystemTime类型以及GetSystemTime过程需要引用Windows单元。

　　其中TSystemTime的定义是

PSystemTime = ^TSystemTime; _SYSTEMTIME = record wYear: Word; wMonth: Word; wDayOfWeek: Word; wDay: Word; wHour: Word; wMinute: Word; wSecond: Word; wMilliseconds: Word; end; {$EXTERNALSYM _SYSTEMTIME} TSystemTime = _SYSTEMTIME; SYSTEMTIME = _SYSTEMTIME; {$EXTERNALSYM SYSTEMTIME}

　　其中GetSystemTime的声明是这样的

procedure GetSystemTime; external kernel32 name ‘GetSystemTime‘;

　　它的函数原型是

procedure GetSystemTime(var lpSystemTime: TSystemTime); stdcall;

　　一看就是使用静态加载的方式加载了DLL，所以在Windows里面也只是引入GetSystemTime过程，并没有实现，具体的实现是在 kernel32.dll这个DLL里面实现的。具体这个DLL是使用C语言还是使用Delphi语言实现的就不得而知了，等我以后研究到再说。（估计是用C实现的，要不为什么获取的时间的小时数会差8个小时，和C语言一样，不过这只是目前的猜测）

　　什么是kernel32.dll？

　　　　kernel32.dll是Windows 9x/Me中非常重要的32位动态链接库文件，属于内核级文件。它控制着系统的内存管理、数据的输入输出操作和中断处理，当Windows启动时，kernel32.dll就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域。