Текущий архив: 2003.06.12;
Скачать: CL | DM;

Вниз

Как получить дату последнего открытия и измененрия файла!?!   Найти похожие ветки 

← →
raven2003 ©   (2003-04-13 21:58) [0]

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

---

← →
Songoku ©   (2003-04-14 00:25) [1]

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);

---

← →
Songoku ©   (2003-04-14 00:35) [2]

>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;

---

← →
NikB   (2003-04-14 01:19) [3]

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

---

← →
Songoku ©   (2003-04-14 15:52) [4]

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

---

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

Текущий архив: 2003.06.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.056 c