Obtener los archivos de un directorio

[[Lepe]]

DarkByte, si usas las rxlibs, tienen una unidad llamada nkfiles.pas en la cual tienes esta funcion:

// Devuelve una lista con todos los ficheros de un directorio que se ajustan
// a la máscara cMask, con unos atributos dados, si lRecursive vale True,
// busca también en los subdirectorios, en los subdirectorios de los
// subdirectorios, etc.
// Devuelve False si el directorio no existe.
function FindFilesInDir(const cDir:String; cMask: TStrings; iAttr: Integer;
						 lRecur: Boolean; S: TStringList): Boolean;

cmask := '*.jpg';
iattr := fareadonly+faAnyfile;

creo que debes añadir la unidad FileCtrl para usar fareadonly, si no es esta unidad, busca en la ayuda.(no tengo delphi a mano ahora mismo)

Para usar la libreria nkfiles, deberás añadir la ruta de la misma al Library Path de Delphi


Espero te sea de utilidad