Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Система";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.009 c
1-26988
Still Swamp
2002-08-29 15:42
2002.09.09
TImageList.Add


1-26969
Oleg_Gashev
2002-08-28 01:14
2002.09.09
Невизуальный компонент


8-27119
As1
2002-05-10 17:42
2002.09.09
Графика


1-27113
Slaya
2002-08-28 23:37
2002.09.09
TRichEdit


4-27283
Storonnik
2002-07-19 18:33
2002.09.09
Как послать приложению нажатие какой-нибудь клавиши?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский