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;