delphi 获取文件创建时间，修改时间，最后

function GetFileLastAccessTime(FileName: string; AFlag: Integer): TDateTime;

var

WFD: TWin32FindData;

FileTime: TFileTime;

hFile: THandle;

DFT: DWORD;

begin

hFile := FindFirstFile(Pchar(FileName), WFD);

if hFile <> INVALID_HANDLE_VALUE then

begin

// FindClose(hFile);

case AFlag of

FileTimeToLocalFileTime(WFD.ftCreationTime, FileTime); //创建时间

FileTimeToLocalFileTime(WFD.ftLastAccessTime, FileTime); //上一次访问时间

FileTimeToLocalFileTime(WFD.ftLastWriteTime, FileTime); //最后写入时间

end;

FileTimeToDosDateTime(FileTime, LongRec(DFT).HI, LongRec(DFT).LO);

Result := FileDateToDateTime(DFT);

end;

推荐分享