Текущий архив: 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.023 c
