Hola santiago14.
Cita:
¿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.