Определение даты созания файла [D6, WinXP]
Ajax © (2004-04-23 10:17:00)
Правилен ли следующий код?
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
