¿Cómo saber cuantas particiones de discos duros tiene mi pc?

[Angel Fernández]

Saludos al foro. No sé muy bien donde poner esta pregunta, dudaba entre api y varios, y al final me he decidio por éste último que es más cajón de sastre.

La pregunta en cuestión, como indica el título, es: ¿cómo puedo saber, con Delphi 7, cuántas particiones de discos duros tengo en mi ordenador (con sus letras)? Por ejemplo, en mi ordenador tengo dos discos duros, pero uno de ellos está particionado en tres partes y el otro en dos. Es decir, en total, 5 particiones que en mi caso tienen las letras C:, D:, E:, F: y G:. La unidad A: no serviría porque es una disquetera.

Estoy hablando de win xp.

La idea final es crear una pequeña aplicación que me indique cuántas particiones tengo y qué espacio libre me queda en cada uno de ellos, y eso lo muestre en una minibarra (tipo widget de yahoo, de hecho es una copia de un widget).

Espero haberme expresado correctamente. Gracias de antemano.

[*Caro*]

Hola, espero esto te sirva y para la parte del espacio libre busca sobre la función GetFreeSpace.

Código Delphi [-]
var
 drive:Char;
 tipo:Integer;
begin
   for drive:= 'A' to 'Z' do
   begin
      tipo := GetDriveType(PChar(drive+':\'));
      if tipo=DRIVE_FIXED then
       ListBox1.Items.Add(drive+':\');
   end;
end;

Saluditos

[Angel Fernández]

Funciona perfectamente, es lo que estaba buscando.

Muchas gracias.