从文件中获取最后一次访问信息

...get the last access from a file ?
源代码网推荐 function GetFileLastAccessTime(
源代码网推荐 sFileName : string ) : TDateTime;
源代码网推荐 var
源代码网推荐 ffd : TWin32FindData;
源代码网推荐 dft : DWord;
源代码网推荐 lft : TFileTime;
源代码网推荐 h : THandle;
源代码网推荐 begin
源代码网推荐 //
源代码网推荐 // get file information
源代码网推荐 h := Windows.FindFirstFile(
源代码网推荐 PChar(sFileName), ffd);
源代码网推荐 if(INVALID_HANDLE_VALUE <> h)then
源代码网推荐 begin
源代码网推荐 //
源代码网推荐 // we"re looking for just one file,
源代码网推荐 // so close our "find"
源代码网推荐 Windows.FindClose( h );
源代码网推荐 //
源代码网推荐 // convert the FILETIME to
源代码网推荐 // local FILETIME
源代码网推荐 FileTimeToLocalFileTime(
源代码网推荐 ffd.ftLastAccessTime, lft );
源代码网推荐 //
源代码网推荐 // convert FILETIME to
源代码网推荐 // DOS time
源代码网推荐 FileTimeToDosDateTime(lft,
源代码网推荐 LongRec(dft).Hi, LongRec(dft).Lo);
源代码网推荐 //
源代码网推荐 // finally, convert DOS time to
源代码网推荐 // TDateTime for use in Delphi"s
源代码网推荐 // native date/time functions
源代码网推荐 Result := FileDateToDateTime(dft);

源代码网推荐 end;
源代码网推荐 end; 软件开发网 www.mscto.com