Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из FD : TWin32FindData - получить дату в формате TDateTime [D6, D7]


frost ©   (2003-12-28 20:17:00) 

Получаю Handle файла используя FindFirstFile дальше имею структуру
FD : TWin32FindData надо дату записанную в FD.ftLastAccessTime преобразовать к формату TDateTime. Чего то у меня не получается Спасибо!


Rad   (2003-12-29 09:21:00) [1]

Часовой пояс, наверное, влияет
См FileTimeToLocalFileTime


frost   (2003-12-29 06:01:00) [2]

Черт, и все равно получается какаято ерунда смотри дату последнего открытия explorer.exe в директории windows у меня получается 28.12.2003 в свойствах 29.12.2003 - HELP!!!


frost   (2003-12-28 22:14:00) [3]

Пишу

GetFileTime(FH, nil, nil, @aAccess);
FileTimeToSystemTime(aAccess, bAccess);
label1.Caption:=DateToStr(SystemTimeToDateTime(bAccess));

Выдает ерунду, смущает 1789 год :(

Но пока писал решил попробывать

FileTimeToSystemTime(FD.ftLastAccessTime, bAccess);
label1.Caption:=DateToStr(SystemTimeToDateTime(bAccess));

ВСЕ OK, в чем дело ???
где
FD : TWin32FindData;
bAccess : TSystemTime;


frost   (2003-12-28 22:04:00) [4]

Нет TWin32FindData.ftCreationTime - FILETIME
SystemTimeToDateTime ожидает SYSTEMTIME


dmk   (2003-12-28 21:03:00) [5]

YourTDateTime := SystemTimeToDateTime(TWin32FindData.ftCreationTime);


Наверх

Титульная страница Поиск, карта сайта Написать письмо