Fecha y hora de creacion de un archivo

[seoane]

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

ShowMessage(DateTimeToStr(Creacion('d:\1.txt')));