Главная страница
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.049 c
6-1116257359
ValeX
2005-05-16 19:29
2005.08.28
как обновлять поля на сайте


14-1123183483
Maxim_
2005-08-04 23:24
2005.08.28
Пользователи Оперы, помогите...


4-1120802825
Jupiter
2005-07-08 10:07
2005.08.28
Как проигнорировать уведомление об ошибке при копировании


1-1123483163
Dimich1978
2005-08-08 10:39
2005.08.28
Переход проекта с Д5 на Д7, ошибка


1-1123580465
забыл
2005-08-09 13:41
2005.08.28
%windir% и прочие...