Некий программист-коболист в поте лица трудился над пресловутой проблемой 2000 года. Он чинил программы во многих фирмах и зашибал приличные бабки. Но по мере приближения роковой даты его все больше охватывал ужас: что будет со всеми этими программами и с ним самим? Наконец он решил заморозиться и проспать в анабиозе до февраля 2000 года, а там, глядишь, вся свистопляска и уляжется...
...Он проснулся в странном незнакомом помещении, вокруг ликовали люди:
- Очнулся, очнулся!
- Сейчас с вами будет говорить президент Земного Шара.
На огромном стереоскопическом экране возник человек, весьма похожий на Билла Гейтса.
- Видите ли, программа вашей камеры при переходе к 2000 году сработала неправильно, и вы проспали почти 8000 лет. Но вы не волнуйтесь. Наша жизнь прекрасна. Мы достигли огромных успехов в науке и технологии. Мы покорили время и пространство. Мы...
- Но почему вы меня разморозили?
- Понимаете, приближается 10000 год, а в вашем досье указано, что вы знаете КОБОЛ.
Данная процедура, позволяет узнать дату последнего доступа к файлу,
код не проверял, но говорят работает. Для тех кто не знает что с этим
делать намекну, можно использовать для создания триального реиода или
просто отслеживания доступа к компьютеру.
procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle: THandle;
LocalFileTime: TFileTime;
DosFileTime: DWORD;
LastAccessedTime: TDateTime;
FindData: TWin32FindData;
begin
FileHandle := FindFirstFile('AnyFile.FIL', FindData);
if FileHandle <> INVALID_HANDLE_VALUE thenbegin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 thenbegin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
Label1.Caption := DateTimeToStr(LastAccessedTime);
end;
end;
end;
Программный код на Delphi, предназначенный для поиска даты последнего доступа к файлу с именем "AnyFile.FIL". Работает следующим образом:
Функция FindFirstFile используется для поиска первого файла, соответствующего указанному пути и имени ('AnyFile. FIl'). Эта функция возвращает.handle к найденному файлу, который хранится в переменной FileHandle.
Если найден валидный файл (т.е. FileHandle не равно INVALID_HANDLE_VALUE), то код продолжает обработку этого файла.
Функция FindClose используется для закрытия handle к файлу, что обеспечивает освобождение ресурсов системы.
Если найденный файл не является каталогом (т.е. его атрибуты не включают флаг FILE_ATTRIBUTE_DIRECTORY), то код пытается извлечь дату последнего доступа к этому файлу.
Функция FileTimeToLocalFileTime используется для преобразования локального времени файла (FindData.ftLastWriteTime) в структуру локального времени файла (LocalFileTime). Это преобразование необходимо, потому что Delphi использует локальное время, а Windows хранит времена файлов в UTC (Соординированное универсальное время).
Затем функция FileTimeToDosDateTime используется для преобразования LocalFileTime в формат даты и времени DOS.
Наконец, код использует функцию FileDateToDateTime для преобразования формата даты и времени DOS в структуру Delphi TDateTime (LastAccessedTime), которая представляет собой дату последнего доступа к файлу в текущей системе местного времени.
Результат отображается на экране в виде строки, используя функцию DateTimeToStr для преобразования структуры TDateTime в строковое представление.
Обратите внимание, что этот код не будет работать корректно, если вы указываете путь к каталогу вместо имени файла. Кроме того, он может не работать как ожидалось для файлов, которые не имеют даты доступа (например, файлы, созданные системой).
В статье описывается процедура, позволяющая узнать дату последнего доступа к файлу на компьютере с помощью программирования на языке DELPHI.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал