Delphi com Pendrive

Eduardo,

Geralmente, quando se insere um Pendrive na máquina uma unidade de disco é atribuído a este (quando usamos Windows), E:, F: e assim por diante portanto, se você verificar a letra da unidade resolveria seu problema?

Dá uma olhada nesta rotina abaixo, que talvez ajude
Coloque um ListBox e nomeio como LBDrives

procedure TMainForm.btnGetDriveTypesClick(Sender: TObject);
var
i: Integer;
C: String;
DType: Integer;
DriveString: String;
begin
{ Loop de A..Z para determinar as unidades disponíveis }
for i := 65 to 90 do
begin
C := chr(i)+’:\’; // Formata uma string representando o diretório-raiz.
{ Chama a função GetDriveType( ), que retorna um valor inteiro
representando um dos tipos que aparecem na instrução case
em seguida }
DType := GetDriveType(PChar(C));
{ Baseado no tipo de unidade retornado, formata uma string
para incluir
a caixa de listagem exibindo os diversos tipos de unidade. }
case DType of
0: DriveString := C+’ The drive type cannot be determined.’;
1: DriveString := C+’ The root directory does not exist.’;
DRIVE_REMOVABLE: DriveString :=
C+’ The drive can be removed from the drive.’;
DRIVE_FIXED: DriveString :=
C+’ The disk cannot be removed from the drive.’;
DRIVE_REMOTE: DriveString :=
C+’ The drive is a remote (network) drive.’;
DRIVE_CDROM: DriveString := C+’ The drive is a CD-ROM drive.’;
DRIVE_RAMDISK: DriveString := C+’ The drive is a RAM disk.’;
end;
{ Só inclui tipos de unidade que possam ser determinados. }
if not ((DType = 0) or (DType = 1)) then
lbDrives.Items.AddObject(DriveString, Pointer(i));
end;
end;