Muchas gracias por su ayuda amigos; todas son excelente opciones.
Probé este código que referenció NEFTALI:
Código:
function TUtilesArchivos.FechasArchivo(
archivo: string; tipoFecha: TFechasArchivo): string;
var
SR: TSearchRec;
sysTime: SYSTEMTIME;
fileTime: TFILETIME;
begin
if (FindFirst(archivo, faAnyFile, SR) = 0) then begin
case tipoFecha of
faCreacion: FileTimeToLocalFileTime(SR.FindData.ftCreationTime, fileTime);
faModificacion: FileTimeToLocalFileTime(SR.FindData.ftLastWriteTime, fileTime);
faUltimoAcceso: FileTimeToLocalFileTime(SR.FindData.ftLastAccessTime, fileTime);
else
FileTimeToLocalFileTime(SR.FindData.ftCreationTime, fileTime);
end;
FileTimeToSystemTime(fileTime, sysTime);
result := DateTimeToStr(SystemTimeToDateTime(sysTime));
FindClose(SR);
end
else
result := EmptyStr;
end;
y me quede con la segunda opción de escafandra (por alguna razón funciono notablemente mas rápido).
Nuevamente, muchas gracias.