FileAge Получение датя/время последнего изменения файла, не открывая его
FileSetDate Установка даты и времени последнего изменения файла
FileExists Возвращает True если указанный файл существует
Пример кода : Создание текстового файла, и отображение его атрибутов
var
fileName : string;
myFile : TextFile;
attrs : Integer;
begin // Попытка ооткрыть текстовый
файл для записи
fileName := 'Test.txt';
AssignFile(myFile, fileName);
ReWrite(myFile); // Запись в файл
Write(myFile, 'Hello World'); // Закрытие файла
CloseFile(myFile); // Получение атрибутов файла
attrs := FileGetAttr(fileName); // Показ этих атрибутов
if attrs and faReadOnly > 0
then ShowMessage('Файл только для чтения)
else ShowMessage('Файл не только для чтения');
if attrs and faHidden > 0
then ShowMessage('Файл скрытый')
else ShowMessage('Файл не скрытый');
if attrs and faSysFile > 0
then ShowMessage('Файл является системным')
else ShowMessage('Файл не является системным');
if attrs and faVolumeID > 0
then ShowMessage('Файл является идентификатором объёма')
else ShowMessage('Файл не является идентификатором объёма');
if attrs and faDirectory > 0
then ShowMessage('Файл является каталогом')
else ShowMessage('Файл не является каталогом');
if attrs and faArchive > 0
then ShowMessage('Файл архивный')
else ShowMessage('Файл не архивный');
if attrs and faSymLink > 0
then ShowMessage('Файл является ярлыком')
else ShowMessage('Файл не является ярлыком');
end;
Файл не только для чтения
Файл не скрытый
Файл не является системным
Файл не является идентификатором объёма
Файл не является каталогом
Файл архивный
Файл не является ярлыком
