Delphi - база знаний


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


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



function GetFileDate(FileName: string): string;
  var FHandle: Integer; 
begin 
  FHandle := FileOpen(FileName, 0); 
try   
  Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));   
finally   
  FileClose(FHandle);   
end;  
end

Взято с сайта



Начало  Назад  Вперед



Книжный магазин