Código Delphi
[-]
function Creacion(Filename: string): TDateTime;
var
SearchRec: TSearchRec;
SysTime: SYSTEMTIME;
FileTime: TFILETIME;
begin
Result:= 0;
if FindFirst(PChar(FileName), faAnyFile, SearchRec) = 0 then
begin
FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, FileTime);
FileTimeToSystemTime(FileTime, SysTime);
Result := SystemTimeToDateTime(SysTime);
FindClose(SearchRec);
end;
end;
Ejemplo de uso
Código Delphi
[-]
ShowMessage(DateTimeToStr(Creacion('d:\1.txt')));