| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Дата создания [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Glooker ©   (2002-06-17 21:36:00) 

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

---

Pat   (2002-06-17 22:01:00) [1]

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

---

Pat   (2002-06-17 21:59:00) [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;



---

Anatoly Podgoretsky   (2002-06-17 21:40:00) [3]

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

---

Наверх