Скачать: 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 вся ветка

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



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