本文整理自网络,侵删。
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 xe webbroker 开发,解决 response 返回中文乱码问题
更多相关阅读请进入《Delphi》频道 >>