Скачать: CL | DM;

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

← →
woland ©   (2002-06-28 15:58) [0]

Как мне изменить дату создания уже существующего файла? Например файл был создан 1.04.2002, а нужно cделать так, что бы система считала, что он создан 5.04.2002.

---

← →
Pat ©   (2002-06-28 19:04) [1]

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;

---

← →
Viewer   (2002-06-28 21:38) [2]

function setfdate(const fname: string; const fdate: tdatetime): boolean;
var
fh: thandle;
dres: integer;
begin
try
try
fh := fileopen(fname,fmopenwrite or fmsharedenynone);
if fh > 0 then begin
dres := filesetdate(fh,datetimetofdate(fdate));
result := (dres = 0);
end;
except
result := false;
end;
finally
fileclose (fh);
end;
end;

---

← →
Viewer   (2002-06-28 21:40) [3]

datetimetofiledate(fdate)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c