como detecto unidades extraibles

[desi]

soy nuevo en esto de programar y quisiera saber como ago para detectar unidades extribles como memorias usb

[bpesoj]

Hola,
Puedes intentar con este procedimiento:
Código Delphi [-]Procedure Unitats(Var l:TStringList);
var i:Word; k:Char; s:String;
begin for k:='a' to 'z' do begin try s:=k+':';
i := GetDriveType(PChar(s));
if i=DRIVE_REMOVABLE then l.Add(String(k));
except end;
end;
end;

Si miras en la ayuda la función GetDriveType puedes detectar más tipos de unidades (fijas, de red, etc.)

[Khronos]

Hola, te aconsejo que te leas la guia de estilo antes de nada , porque este tema no va de acuerdo con la seccion donde posteas.

Hay una funcion muy simple para detectar unidades extraibles GetDriveType. Esta funcion se encuentra en los uses de Windows.

Los posibles valores que devuelve esta funcion son:

Código Delphi [-]
DRIVE_UNKNOWN = 0;
  {$EXTERNALSYM DRIVE_UNKNOWN}
  DRIVE_NO_ROOT_DIR = 1;
  {$EXTERNALSYM DRIVE_NO_ROOT_DIR}
  DRIVE_REMOVABLE = 2;
  {$EXTERNALSYM DRIVE_REMOVABLE}
  DRIVE_FIXED = 3;
  {$EXTERNALSYM DRIVE_FIXED}
  DRIVE_REMOTE = 4;
  {$EXTERNALSYM DRIVE_REMOTE}
  DRIVE_CDROM = 5;
  {$EXTERNALSYM DRIVE_CDROM}
  DRIVE_RAMDISK = 6;
  {$EXTERNALSYM DRIVE_RAMDISK}

En tu caso, para detectar una unidad USB:

Código Delphi [-]
var
drive: char;
begin
 
For Drive:='c' to 'z' do begin
If GetDriveType (pchar(drive + ':\')) = DRIVE_REMOVABLE then begin
//se inicia un bucle que busca todas las unidades de la c
//hasta la z y si detecta que alguna es de tipo USB
 
showmessage('Unidad ' + pchar(drive));
//muestra un mensaje
end;
end;

Espero que te ayude

Salu2