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

Вниз

Непонятки с датами файлов   Найти похожие ветки 

 
kami ©   (2005-08-07 11:01) [0]

Почему на некоторых файлах возвращается время на 1 час меньше?
Причем на 70%(примерно) возвращает правильно!
procedure TForm1.Button1Click(Sender:TObject);
var
 SysTime:TSystemTime;
 LocalTime:TSystemTime;
 FileName:String;
begin
 if not OpenDialog1.Execute then
   exit;
 FileName:=OpenDialog1.FileName;
 Label1.Caption:=FileName;
 hFile:=CreateFile(@FileName[1],GENERIC_READ,
      0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
 if GetFileInformationByHandle(hFile,FileInfo) then
   if FileTimeToSystemTime(FileInfo.ftLastWriteTime,SysTime) then
       begin
         SystemTimeToTzSpecificLocalTime(nil,SysTime,LocalTime);
         lbChangeFileTime.Caption:=IntToStr(LocalTime.wDay)+
            "."+IntToStr(LocalTime.wMonth)+
            "."+IntToStr(LocalTime.wYear)+
            "  "+IntToStr(LocalTime.wHour)+
            ":"+IntToStr(LocalTime.wMinute)+
            ":"+IntToStr(LocalTime.wSecond);
       end;
 CloseHandle(hFile);
end;


в "Свойства файла":
 Blade 2.avi
   изменен 1 января 2002 г., 1:01:02
В программе :
 1.1.2002  0:1:2


 
DiamondShark ©   (2005-08-07 12:40) [1]

Сам же написал SystemTimeToTzSpecificLocalTime, вот оно и возвращается с учётом зимнее/летнее.


 
kami ©   (2005-08-07 13:31) [2]

Ааа... Понял, спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
14-1122362577
ANB
2005-07-26 11:22
2005.08.28
Теория Дарвина - жива или умерла ?


6-1115955679
XProger
2005-05-13 07:41
2005.08.28
Размеры заголовков TCP и UDP пакектов


1-1123584552
Svintus
2005-08-09 14:49
2005.08.28
Как сохранить интернет страницу?


4-1120324212
Igivan
2005-07-02 21:10
2005.08.28
соединение с внешним устройством


1-1123532624
ronyn
2005-08-09 00:23
2005.08.28
Вопрос рациональности.