SDK:当前时间 [Bitx.cn]

SDK用.
注:Delphi的wsprintf无法直接使用,使用我修改后的wsprintf直接格式化以提升效率.

function NowTime: String;
var
SystemTime: TSystemTime;
TimrFmt: array[0..5] of Integer;
p: PChar;
begin
GetLocalTime(SystemTime);
with SystemTime do
begin
TimrFmt[0] := wYear;
TimrFmt[1] := wMonth;
TimrFmt[2] := wDay;
TimrFmt[3] := wHour;
TimrFmt[4] := wMinute;
TimrFmt[5] := wSecond;
end;
GetMem(p, 19);
try
wvsprintf(p, '%d-%02d-%02d %02d:%02d:%02d', @TimrFmt);
Result := String(p);
finally
FreeMem(p);
end;
end;