Дата и время создания файла.

← →
_Max © (2005-05-30 15:43) [0]

Как узнать сабж ?

← →
raidan © (2005-05-30 16:06) [1]

Можно узнать только дату последнего изменения.

← →
Anatoly Podgoretsky © (2005-05-30 16:16) [2]

Можно узнать все три даты. Например через FindFirst

← →
Stanislav © (2005-05-30 16:41) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateTimeToStr( GetFDateA ("C:\myFile.exe")));
end;

function GetFDateA(FileName:String): Double;
var
FD:TWIN32FindData;
D:Integer;
FileTime, LocalFileTime: TFileTime;
begin
Result:=0;
if not Fileexists (FileName) then exit;
Windows.FindFirstFile(PChar(FileName),FD);
FileTime:=Fd.ftCreationTime;
FileTimeToLocalFileTime(FileTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(D).Hi,LongRec(D).Lo);
Result:=FileDateToDateTime (D);
end;

← →
Stanislav © (2005-05-30 16:44) [4]

если заменить строку FileTime:=Fd.ftCreationTime;
на FileTime:=Fd.ftLastAccessTime или
FileTime:=Fd.ftLastWriteTime
Узнаешь остальные даты.

1. FindFirstFile
2. CreateFile + GetFileTime
3. FileAge

Удалено модератором

Дата и время создания файла. Найти похожие ветки