Ayuda con Manejo de usb

[[kurono]]

hola amigo rod203 este codigo te sirve para dectectar las memorias usb una ves dectectada puedes indicarle todo lo que quieres hacer por medio de la letra que se le asigne a la usb tambien lo puedes modificar a tu gusto

Código Delphi [-]
var

  Letra: Char;

begin

  for Letra:= 'C' to 'Z' do

    if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then

    begin

      
      ShowMessage('Esto es una memoria usb '+Letra+':\');
    

end;

end;