Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

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

 
Ajax ©   (2004-04-23 10:17) [0]

Правилен ли следующий код?

Function GetFileDate(filepath:string):TDateTime;
var lpCr:tFileTime;
   f:cardinal;
   ST: TSystemTime;
   TZ: TTimeZoneInformation;
begin
 result:=now;
 f:=createfile(pchar(filepath),GENERIC_ALL,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
 getfiletime(f,@lpCr,nil,nil);
 GetTimeZoneInformation(TZ);
 FileTimeToSystemTime(lpCr, ST);
 SystemTimeToTzSpecificLocalTime(@TZ, ST, ST);
 SystemTime2DateTime(ST,Result);
 closehandle(f);
end;


Если да, то с чем связано, что если создать PStrList, сохранить в файл и тут жу посмотреть его дату, получается нечто невразумительное?


 
Viman ©   (2004-04-23 10:48) [1]

Хватит и этого:
function FileTime2DateTime(const FileTime: TFileTime): TDateTime;
var lSystemTime: TSystemTime; lLocalFileTime: TFileTime;
begin
 if FileTimeToLocalFileTime(FileTime, lLocalFileTime) and
  FileTimeToSystemTime(lLocalFileTime, lSystemTime) then
   SystemTime2DateTime(lSystemTime, Result)
  else Result:=0;{или что-то своё}
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.088 c
1-1098884809
acsoft
2004-10-27 17:46
2004.11.14
Как поменять иконку программы


14-1098537612
тихий вовочка
2004-10-23 17:20
2004.11.14
Маленький отчет о моей поездке в Индию


14-1098695957
Debugger
2004-10-25 13:19
2004.11.14
LOL


14-1098862725
Егор
2004-10-27 11:38
2004.11.14
Создание .exe файла.


4-1096882304
Дмитрий Ботвин
2004-10-04 13:31
2004.11.14
Объём оперативки на сетевом компе