زمان ساخت یک پوشه

[hadiaj168]

باسلام
چه طوری میشه زمان ساخت یک پوشه رو بدست آورد؟

[AliReza Vafakhah]

تابع زیر زمان ایجاد پوشه ، آخرین دسترسی ، تغییرات ایجاد و نوشتن در دایرکتوری را به شما می دهد

Uses DateUtils
procedure TForm1.DirectoryDateTimeInfo(const path : string) ;
var
sr : TSearchRec;
modifiedTime : TDateTime;
creationTimeSystem: TSystemTime;
lastAccessTimeSystem: TSystemTime;
lastWriteTimeSystem: TSystemTime;
creationTime: TDateTime;
lastAccessTime: TDateTime;
lastWriteTime: TDateTime;
begin
if sysUtils.FindFirst(path, faDirectory, sr) = 0 then
try
modifiedTime := FileDateToDateTime(sr.Time) ;

FileTimeToSystemTime(sr.FindData.ftCreationTime, creationTimeSystem) ;
with creationTimeSystem do
creationTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds) ;

FileTimeToSystemTime(sr.FindData.ftLastAccessTime, lastAccessTimeSystem) ;
with lastAccessTimeSystem do
lastAccessTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds) ;

FileTimeToSystemTime(sr.FindData.ftLastWriteTime, lastWriteTimeSystem) ;
with lastWriteTimeSystem do
lastWriteTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds) ;

ShowMessage(Format('Date Time Info for "%s"', [path])) ;
ShowMessage(Format('Creation Time: "%s"', [DateTimeToStr(creationTime)])) ;
ShowMessage(Format('Last Access Time: "%s"', [DateTimeToStr(lastAccessTime)])) ;
ShowMessage(Format('Last Write Time: "%s"', [DateTimeToStr(lastWriteTime)])) ;
ShowMessage(Format('Last Modified Time: "%s"', [DateTimeToStr(modifiedTime)])) ;
finally
FindClose(sr) ;
end
else
ShowMessage(Format('Could not obtain info for "%s"', [path])) ;
end;

منبع Delphi.About.com (http://delphi.about.com/od/delphitips2007/qt/directory_dates.htm)