Mega Code Archive

 

Categories / Delphi / Files

 

Dosyanın değiştirilme tarih ve saatinin öğrenilmesi

function GetModifiedDate(FileName: string): TDateTime; var SearchRec: TSearchRec; ModifiedTime: TFileTime; SystemTime: TSystemTime; begin Result := 0; If FindFirst(FileName, faAnyFile, SearchRec) = 0 then begin ModifiedTime := SearchRec.FindData.ftLastWriteTime; FileTimeToLocalFileTime(ModifiedTime, ModifiedTime); FileTimeToSystemTime(ModifiedTime, SystemTime); Result := SystemTimeToDateTime(SystemTime); end; FindClose(SearchRec); end;