Я пытаюсь получить те же даты создания, доступа и изменения, которые отображаются в свойствах окна, как в:
Но я нахожу, что время постоянно 30 минут:
Поверьте, что это может иметь какое-то отношение к часовым поясам/летнему экономию, но не удалось найти решение. Попробовали посмотреть: TimeZone Bias и настройка и просмотр различных методов, включая: Как создать/последние измененные даты файла в Delphi?
Текущий код:
var
MyFd TWin32FindData;
FName: string;
MyTime: TFileTime;
MySysTime: TSystemTime;
myDate, CreateTime, AccessTime, ModTime: TDateTime;
Begin
...
FindFirstFile(PChar(FName), MyFd);
MyTime:=MyFd.ftCreationTime;
FileTimeToSystemTime(MyTime, MySysTime);
myDate := EncodeDateTime(MySysTime.wYear, MySysTime.wMonth, MySysTime.wDay, MySysTime.wHour,
MySysTime.wMinute, MySysTime.wSecond, MySysTime.wMilliseconds);
Memo1.Lines.Add('Created: '+ FormatDateTime('dddd, d mmmm yyyy, hh:mm:ss ampm', MyDate));
...
Любая помощь оценена
Спасибо Пол