![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как из 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);