[DiNYT]

Доброго времени суток, уважаемые.
Если посмотреть в фаре аттрибуты файла, то можно увидеть там три даты, а именно:
1) Время модификации файла.
2) Время создания файла.
3) Время последнего доступа к файлу.
Первую дату (время модификации) я могу получить, как можно получить две другие? Если не затруднит - с небольшим примером. Заранее спасибо.

[moo2k]

Время создания файла.

Код:

function GetFileDate(TheFileName: string): string;
var
FHandle: integer;
begin
FHandle := FileOpen(TheFileName, 0);
result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
FileClose(FHandle);
end;

Время последнего доступа к файлу.

Код:

var
FileHandle: THandle;
LocalFileTime: TFileTime;
DosFileTime: DWORD;
LastAccessedTime: TDateTime;
FindData: TWin32FindData;
begin
FileHandle := FindFirstFile(′AnyFile.FIL′, FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
Label1.Caption := DateTimeToStr(LastAccessedTime);
end;
end;
end;

Надеюсь на твой отзыв.

[DiNYT]

кхе-кхе
2moo2k: Кажется я ошибся в нумерации этих дат...
Я как раз как ты предложил "доставал" время создания

За "Время последнего доступа к файлу" спасибо!!!
Может знаешь как получить время модификации?

[moo2k]

Код:

var 
fileName : string; 
fileDate : Integer; 
begin 
fileName := Имя твоего файла; 
fileDate := FileAge(fileName); 
if fileDate > -1 then 
ShowMessage(fileName+' время последней модификации= '+ 
DateToStr(FileDateToDateTime(fileDate))); 
end; 

[DiNYT]

Большое спасибо!