Detectar los dispositivos de almacenamiento de mi PC

[santiago14]

Buenas, ¿es factible que se pueda detectar a los dispositivos de almacenamiento que tengo en mi máquina? (Discos duros, pendrives, memorias, etc, etc, etc.) En definitiva, cualquier cosa que se pueda preciar de almacenar datos.
La idea es recuperar las identificaciones de esos dispositivos (C:, D:, ...) para luego hacer algo con ellos.
Bueno, espero haber sido claro. Gracias.

[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.

[santiago14]

Gracias compañero, esto me viene de diez.

Saludos.

[santiago14]

Empezado por ecfisa

Hola santiago14.

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

Saludos.

¿Cómo la llamo en uses? Perdón por mi ignorancia, estoy mas que trasnochado...

Gracias.

[ecfisa]

No Santiago, eso era un enlace a la información de la función API GetLogicalDrives. Sólo debe estar incluida la unit Windows en la cláusula uses para que funcione.

Saludos.

[santiago14]

Empezado por ecfisa

Sólo debe estar incluida la unit Windows en la cláusula uses para que funcione.

Gracias, ahora si. Tenía un error en mi Delphi, ya está corregido y ahora todo funciona mejor. Espero.

Saludos. Santiago.