Обновлено: 01 декабря, 2018

Выясняем дату последнего изменения файла в 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;

(10 оценок, среднее: 5,00 из 5)

Загрузка...