Mega Code Archive

 
Categories / Delphi / Files
 

Dosya yaratilma tarihi

Bu fonksiyon, dosyanin yaratildigi tarihi döndürür. Function File_GetCreationDate(FileName : String): TDateTime; var SearchRec : TSearchRec; DT : TFileTime; ST : TSystemTime; begin Result := 0; If Not FileExists(FileName) Then Exit; Try SysUtils.FindFirst(FileName, faAnyFile, SearchRec); Try FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime,DT); FileTimeToSystemTime(DT, ST); Result := SystemTimeToDateTime(ST); Finally SysUtils.FindClose(SearchRec); End; Except Result := 0; End; end;