本文整理自网络,侵删。
var data: WIN32_FILE_ATTRIBUTE_DATA; systime: SYSTEMTIME; local: FILETIME; begin if(not GetFileAttributesEx( 'C:\新建文件夹 ', GetFileExInfoStandard, @data)) then RaiseLastWin32Error(); FileTimeToLocalFileTime(data.ftCreationTime, local); //要转换为本地时间,否则为标准时间 FileTimeToSystemTime(local, systime); with systime do ShowMessage(Format( '%d-%d-%d %d:%d:%d ', [wYear, wMonth, wDay, wHour, wMinute, wSecond])); end;
相关阅读 >>
Delphi - 利用dll编程控制摄像头实现拍照、录制视频
Delphi 使用indy解决tidssliohandlersocketopenssl could not load ssl library错误
更多相关阅读请进入《Delphi》频道 >>