Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

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

 
BUTEK   (2003-05-20 06:16) [0]

Люди помогите пожалуйста!!!!
как мне вытащить или изменить на Дельфях
дату и время создания, изменения, открытия файла


 
Babay ©   (2003-05-20 06:25) [1]

Смотри

http://blackman.wp-club.net/sovet/datetime.php#anc23

Это дата изменения, остальное по моему по хелпу можно найти - это тебе оправная точка


 
Song ©   (2003-05-20 08:55) [2]

TSearchRec


 
dmitron   (2003-05-20 10:10) [3]

var
FileHandle : Integer;
dt,dt1,dt2,dt3:PFileTime;
ds1,ds2:SYSTEMTIME;
begin
//переменные для хранения даты в формате filetime
getmem(dt,sizeof(dt));
getmem(dt1,sizeof(dt));
getmem(dt2,sizeof(dt));
getmem(dt3,sizeof(dt));
// имя файла
a:="filename";
FileHandle := FileOpen(a, fmOpenWrite or fmShareDenyNone);
try
if FileHandle > 0 then
begin
//получили дату создания, изменения, открытия
GetFileTime(FileHandle,dt1,dt2,dt3);
//получили текущее время в формате PFileTime
GetSystemTimeAsFileTime(dt^);
//сконвертировали pfiletime в systemtime
FileTimeToSystemTime(dt1^,ds1);
FileTimeToSystemTime(dt2^,ds2);
//если дата больше текущей - исправили
if SystemTimeToDateTime(ds1)>now then dt1^:=dt^;
if SystemTimeToDateTime(ds2)>now then dt2^:=dt^;
//записали изменения дат
SetFileTime(FileHandle,dt1,nil,dt2);
finally
fileclose(FileHandle);
end;
finally
freemem(dt);
freemem(dt1);
freemem(dt2);
freemem(dt3);
end;

P.S. кусок вдран из рабочего кода, может чего лишнего осталось...


 
ddd   (2003-05-22 11:05) [4]

Что это dt,dt1,dt2,dt3 - Четыре даты ?



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
3-2815
prof
2003-05-13 08:51
2003.06.02
Выборка в переменную


14-3136
Alex134
2003-05-14 20:34
2003.06.02
Turbo Vision


14-3170
PVOzerski
2003-05-15 11:07
2003.06.02
Как в W2K сделать NUMLOCK по умолчанию ON?


1-2997
_Alex_
2003-05-20 14:36
2003.06.02
d6 и диалог на основе TOpenPictureDialog


1-2862
Shutoff
2003-05-22 09:57
2003.06.02
MSExcel2000 vs BCB5