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

Вниз

Дата создания   Найти похожие ветки 

 
Glooker   (2002-06-17 21:36) [0]

Можно ли как нибудь изменить дату создания файла?


 
Anatoly Podgoretsky ©   (2002-06-17 21:40) [1]

Можно, через SetFileTime


 
Pat ©   (2002-06-17 21:59) [2]

Ну и чтобы особенно долго не мучался, лови пример :-))

procedure changetime;
var h:Thandle;
Tnew:FileTime;
s:ofstruct;
systime,t,local:SYSTEMTIME;
begin
GetSystemTime(systime);
GetLocalTime(local);
t.wHour:=(systime.wHour-local.wHour)+13;
t.wMinute:=(systime.wMinute-local.wMinute)+45;
t.wYear:=(systime.wYear-local.wYear)+1983;
t.wMonth:=(systime.wMonth-local.wMonth)+4;
t.wDay:=(systime.wDay-local.wDay)+2;
t.wSecond:=(systime.wSecond-local.wSecond)+0;
h:=OpenFile("a.txt",s,fmOpenReadWrite);
SystemTimetoFiletime(t,Tnew);
SetFileTime(h,@Tnew,nil,@Tnew);
FileClose(h);
end;



 
Pat ©   (2002-06-17 22:01) [3]

P.S. Дата и время моего рождения :-)))



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-89042
vopros
2002-05-27 13:44
2002.06.27
Встречусь с женщиной-феминисткой


4-89077
Gayrus
2002-04-27 10:04
2002.06.27
Hook


14-89034
Loxly
2002-05-25 18:28
2002.06.27
Сколько стоит то, что мы берем бесплатно?


1-88822
ivlex
2002-06-16 09:49
2002.06.27
О горячих клавишах


3-88697
roadstar
2002-06-01 11:12
2002.06.27
TADOX