Главная страница
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.021 c
6-3032
A.R.T.K.O.
2003-04-01 08:28
2003.06.02
Нужно сканировать доступность расшаренного ресурса в ЛВС. Как?


3-2773
SerjUfa
2003-05-14 08:12
2003.06.02
Как создать копию таблицы?


1-2995
AlickSnegov
2003-05-21 15:29
2003.06.02
Подскажите пожалуйста как осуществлять поиск в TFileStream


1-2973
Disa
2003-05-21 13:10
2003.06.02
Циклы в потоке...


1-2912
delpher_gray
2003-05-22 20:39
2003.06.02
Как сделать копию экрана, уменьшеную в два раза !?