Скачать: CL | DM;

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

← →
_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
Узнаешь остальные  даты.

---

← →
begin...end ©   (2005-05-30 20:20) [5]

1. FindFirstFile
2. CreateFile + GetFileTime
3. FileAge

---

← →
raidan ©   (2005-05-30 20:35) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c