[[seoane]]

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')));