Как выяснить дату последнего изменения файла?

Previous  Top  Next

    
 

 

 

Code:

function GetFileDate(FileName: string): string;

var FHandle: Integer;

begin

FHandle := FileOpen(FileName, 0);

try

Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));

finally

FileClose(FHandle);

end;

end;

 

 

 

©Drkb::03141

Взято с сайта http://blackman.wp-club.net/