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

Вниз

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

← →
pixelweb ©   (2007-01-05 16:42) [0]

Здравствуйте, может кто сталкивался с такой проблемой?
Как осуществить модификацию даты и времени создания файла?
Вот например:

procedure fsetdate(fname:string);
var
 FileHandle : Integer;
 dat:TDate;
 dint:integer;
 st:string;
begin
 FileHandle := FileOpen(fname, fmOpenWrite or fmShareDenyNone);
 if FileHandle > 0 then
 begin
     st:="03.01.2007";
     dat:=StrToDateTime(st);
     dint:=DateTimeToFileDate(dat);
     FileSetDate(FileHandle, dint);
 end;
end;

Здесь я реализовал модификацию даты последнего изменения файла, но никак не могу найти способа зменить дату создания файла

---

← →
Anatoly Podgoretsky ©   (2007-01-05 17:07) [1]

> pixelweb  (05.01.2007 16:42:00)  [0]

АПИ функция SetFileTime

---

← →
pixelweb ©   (2007-01-06 00:12) [2]

Спасибо за направление, вроде что-то похожее получается :)

---

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

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

Наверх

Память: 0.47 MB
Время: 2.139 c