Текущий архив: 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
Время: 0.033 c
