]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 在 Win95中有一项新的功能，就是可以获得访问文件

的最后日期。著名的 CleanSweapforWin95软件中就是靠这

一功能来作为判断某个文件是否被经常访问的依据之一。

在 Delphi中，我们可以通过下面的程序来达到此功能。

function GetFileLastAccessTime(sFileName:string;uFlag:byte):TDateTime;

var

 ffd:TWin32FindData;

 dft:DWord;

 lft:TFileTime;

 h:THandle;

begin

 h:=FindFirstFile(PChar(sFileName),ffd);

 if h<>INVALID_HANDLE_VALUE then

 begin

 case uFlag of

 FILE_CREATE_TIME:FileTimeToLocalFileTime(ffd.ftCreationTime,lft);

 FILE_MODIFY_TIME:FileTimeToLocalFileTime(ffd.ftLastWriteTime,lft);

 FILE_ACCESS_TIME:FileTimeToLocalFileTime(ffd.ftLastAccessTime,lft);

 else

   FileTimeToLocalFileTime(ffd.ftLastAccessTime,lft);

 end;

 FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);

 Result:=FileDateToDateTime(dft);

 windows.FindClose(h);

 end

 else

 result:=0;

end;

GetFileLastAccessTime（）将会以 Delphi的 TdateTi

me格式返回你所指定的文件的最后访问日期