Detectar memoria USB

[[kurono]]

yo utilizo este codigo para tales fines solo debes ajustarlo a tus necesidades

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;