精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>Re:如何得到文件的修改时间?

主题:Re:如何得到文件的修改时间?
发信人: 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;

[关闭][返回]