delphi дата изменения файла

Ответ от Ѐодион Казанин[гуру]
вот пример
0. создай новый проект
1.на Form1 создай Edit1...Edit6, Button1
2. в Edit1 запиши имя существующего файла
3. в нажатие кнопки данную процедуру
4. запусти программу, нажми кнопку - получишь результат
procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle: THandle;
LocalFileTime: TFileTime;
DosFileTime: DWORD;
LastAccessedTime: TDateTime;
FindData: TWin32FindData;
begin
FileHandle := FindFirstFile(pchar(edit1.text), FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
{создание}
FileTimeToLocalFileTime(FindData.ftCreationTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
edit2.text := DateTimeToStr(LastAccessedTime);
edit5.text:=formatDateTime('dd/mmm/yyyy',LastAccessedTime)+'г. ';
edit6.text:=formatDateTime('h:n:s',LastAccessedTime);
{последние изменения}
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
edit3.text := DateTimeToStr(LastAccessedTime);
{последнее открытие}
FileTimeToLocalFileTime(FindData.ftLastAccessTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
edit4.text := DateTimeToStr(LastAccessedTime);
end;
end;
end;