~~~~~~~~~~~~~~~~~~~~~~~~~
function FileLastModified
(const TheFile: string): string;
var
FileH : THandle;
LocalFT : TFileTime;
DosFT : DWORD;
LastAccessedTime : TDateTime;
FindData : TWin32FindData;
begin
Result := '';
FileH := FindFirstFile(PChar(TheFile), FindData) ;
if FileH <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle) ;
if (FindData.dwFileAttributes AND
FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime
(FindData.ftLastWriteTime,LocalFT) ;
FileTimeToDosDateTime
(LocalFT,LongRec(DosFT).Hi,LongRec(DosFT).Lo) ;
LastAccessedTime := FileDateToDateTime(DosFT) ;
Result := DateTimeToStr(LastAccessedTime) ;
end;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Reading a directory content
« From/to the 8.3 (short) format to/from the long format
