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

← →
frost © (2003-12-28 20:17) [0]

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

← →
dmk © (2003-12-28 21:03) [1]

YourTDateTime := SystemTimeToDateTime(TWin32FindData.ftCreationTime);

← →
frost © (2003-12-28 22:04) [2]

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

← →
frost © (2003-12-28 22:14) [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;

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

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

Как из FD : TWin32FindData - получить дату в формате TDateTime Найти похожие ветки