Detectar memoria USB

[santiago14]

Empezado por 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;

Que mas puedo decir, este pedacito de código es una maravilla... mis felicitaciones a su creador; o por lo menos al que lo difundió por la comunidad.
Ahora conecto y desconecto mis dispositivo USB y automáticamente puedo detectar a que unidad fueron asignados... jejeje.

Saludos.