| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Дата и время создания файла. [D7, WinXP]

_Max ©   (2005-05-30 15:43:00) 

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

---

raidan   (2005-05-30 20:35:00) [1]

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

---

begin...end   (2005-05-30 20:20:00) [2]

1. FindFirstFile
2. CreateFile + GetFileTime
3. FileAge

---

Stanislav   (2005-05-30 16:44:00) [3]

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

---

Stanislav   (2005-05-30 16:41:00) [4]

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;

---

Anatoly Podgoretsky   (2005-05-30 16:16:00) [5]

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

---

raidan   (2005-05-30 16:06:00) [6]

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

---

Наверх