delphiフォルダ取得時間

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;