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

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

Как получить дату последнего открытия и измененрия файла!?! [D7, Win2k]

raven2003 ©   (2003-04-13 21:58:00) 

Помогите пожалуйста!!!!
Как получить дату последнего открытия и изменения файла?????
(Перелопатил гору справки но..... :-((( )

---

Songoku   (2003-04-14 15:52:00) [1]

>NikB
Потому что это одно и тоже!!!

---

NikB   (2003-04-14 01:19:00) [2]

A pochemu ne pol"zowat" FileAge(FileName)?

---

Songoku   (2003-04-14 00:35:00) [3]

>sorry допустил ошибку ... правильно будет вот так:

var
f:DWORD;
fCreat,fLastAc,fLastWr,Tmp:TFileTime;
t:TSystemTime;
begin
f:=_lopen("C:\Boot.ini",OF_READ);
GetFileTime(f,@fCreat,@fLastAc,@fLastWr);
FileTimeToLocalFileTime(fCreat, tmp);
FileTimeToSystemTime(tmp, t);
Label1.Caption:="Creating file: "+IntToStr(t.wHour)+":"+IntToStr(t.wMinute)+" "+IntToStr(t.wDay)+"."+IntToStr(t.wMonth)+"."+IntToStr(t.wYear);
FileTimeToLocalFileTime(fLastWr, tmp);
FileTimeToSystemTime(tmp, t);
Label2.Caption:="Last writing file: "+IntToStr(t.wHour)+":"+IntToStr(t.wMinute)+" "+IntToStr(t.wDay)+"."+IntToStr(t.wMonth)+"."+IntToStr(t.wYear);
_lclose(f);
end;

---

Songoku   (2003-04-14 00:25:00) [4]

var f:DWORD;
fCreat,fLastAc,fLastWr:TFileTime;
t:TSystemTime;
begin
f:=_lopen("C:\Boot.ini",OF_READ);
GetFileTime(f,@fCreat,@fLastAc,@fLastWr);
FileTimeToSystemTime(fLastWr,t);
Label1.Caption:=IntToStr(t.wHour)+":"+IntToStr(t.wMinute)+" "+IntToStr(t.wDay)+"."+IntToStr(t.wMonth)+"."+IntToStr(t.wYear);

---

Наверх