Acceso A Camara De Fotos

[ecfisa]

Hola Maria.

Según tengo entendido algunas cámaras funcionan sólo con su propio software, no sé si esto te servirá en ese caso... Pero probá de este modo:

Código Delphi [-]
procedure GetUSBLeters(TS: TStrings);
var
  ch: Char;
begin
  for ch:= 'C' to 'Z' do
    if GetDriveType(Pchar(ch + ':\')) = DRIVE_REMOVABLE then  
      TS.Add(ch + ':\');
end;

Llamada ejemplo:

Código Delphi [-]
  GetUSBLeters(ListBox1.Items);

Saludos.