Detectar los dispositivos de almacenamiento de mi PC

[ecfisa]

Hola santiago14.

¿es factible que se pueda detectar a los dispositivos de almacenamiento que tengo en mi máquina?

Si, podés usar la función GetLogicalDrives para ese fin.

Por ejemplo:

Código Delphi [-]
procedure LetrasDeUnidades(TS: TStrings);
var
  Unidades: DWord;
  i: Byte;
begin
  Unidades:= GetLogicalDrives;
  for i:= 1 to 32 do
    if Unidades shr i and 1 = 1 then
       TS.Add(Chr(65+i)+':');
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  LetrasDeUnidades(ListBox1.Items);
end;

Saludos.