发信人: scxby(scxby)
整理人: teleme(2001-07-29 19:39:17), 站内信件
|
【 在 andrew_lt 的大作中提到：】
:如题，我使用了 Delphi 自带的得到文件日期函数，可结果好像显示出来是
:错误的时间，什么1891年的，晕！
:......
function getfilemodifytime(as_filename:string):tdatetime;
var
l_WIN32_FILE_ATTRIBUTE_DATA:WIN32_FILE_ATTRIBUTE_DATA;
l_SYSTEMTIME:_SYSTEMTIME;
begin
GetFileAttributesEx(pchar(as_filename),GetFileExInfoStandard,@l_WIN32_FILE_ATTRIBUTE_DATA);
filetimetosystemtime(l_WIN32_FILE_ATTRIBUTE_DATA.ftLastWriteTime,l_SYSTEMTIME);
result:=encodedate(l_SYSTEMTIME.wYear,l_SYSTEMTIME.wMonth,l_SYSTEMTIME.wDay)+encodetime(l_SYSTEMTIME.wHour,l_SYSTEMTIME.wMinute,l_SYSTEMTIME.wSecond,l_SYSTEMTIME.wMilliseconds);
end; |
|