componente q lee unidades

[ixMike]

Bueno, así de primeras, si hay unidad G:\ las leerá, pero si no hay dará un error el resto del código no se ejecutará.

De todas formas, para lo que lo quieres es un poco raro el código. Lo ideal sería que el programa detectara cuándo se conecta una SD, o un PenDrive, o se introduce un CD/DVD... y buscar en ese unidad.
También deberías comprobar si una cierta unidad (G:\, E:\....) está disponible, si tiene disco....
Otra cosa que podrías hacer sería pasar unidad por unidad, pero no como lo haces (poniendo el código para cada letra), sino con un bucle, que pase primero por D:\, luego por E:\..., incrementando la letra a cada paso.

Si buscas en los foros encontrarás todo lo que necesitas al respecto.

Saludos.

P.D. Una pregunta, ¿el procedimiento de RellenarFotos analiza también los subdirectorios? Lo digo oprque sino sólo leerá las fotos que estén en el directorio raíz.

[[Chris]]

Lo mejor que puedes implementar, que sería lo más profesional, sería utilizar los mensajes de windows, utilizando obviamente la api, en algunos casos es fácil, pero investiga talvez no es tan díficil para este caso.

Para el consejo dado por ixMike de ir escaneando cada unidad, es poco profesional, auque lo puedes hacer al momento de iniciar tu aplicación por primera vez, como por ejemplo presentarle al usuario "¿Desea que XXX busque en su PC todas su imágenes?". Bueno, si deseas implementar la busqueda de unidad en unidad, no lo hagas así:

Código Delphi [-]
...
buscarEn('D');
buscarEn('E');
buscarEn('F');
....

mejor haz un bucle con un código similar al siguiente

Código Delphi [-]
UnidadAnalizada := 'C'; //te recomiendo que empieze con "C" porque ya casi nadie utiliza la unidad de la disquera, mejos para fotos.
 
While UnidadAnalizada <> chr(ord('Z')+ 1) Do
Begin
 buscarEn(UnidadAnalizada);
 
 UnidadAnalizada := chr(ord(UnidadAnalizada[1]) + 1);
{lo que hace la línea anterior es aumetar cambiar a la siguiente letra con cada paso del bucle, así luego de procesar la "C" seguirá con la "D", luego con la "E" y así sucesivamente.}
end;

ajola te sirva mi humilde opinión. bye.