Comprobar si existe una unidad de disco
 

Estoy trabajando con un drivecombobox y necesito comprobar si existe la unidad b:, por defecto ya se que no existe en windows pero si se cambia las letras de la unidad si que puede existir, como puedo comprobar que existe una unidad de disco en windows ya sea b: o cualquier otra, gracias de antemano.

Código Delphi [-]

Function UnidadLista(Unidad: Char): Boolean;
begin
Result:=FileExists(Unidad+':\NUL');
end;

Basado en esto:

http://www.q3.nu/trucomania/truco.cgi?62&esp

Saludos

Unidad lista
 

Pues a mi eso no me trabaja.

Hasta ahora lo que he echo es lo siguiente para saber si una unidad existe.

Código Delphi [-]
 if DiskSize(3) > 0 then
  ShowMessage('Existe')
 else
  ShowMessage('No existe');

  // 1=A, 2=B, 3=C y asi hasta la Z. Claro que no hay ñ...

Si alguien obtiene una mejor forma de hacer esto, pues que lo comunique en cuanto pueda aqui en el post...

Este tema es un poco viejo, pero por si alguien viene buscando la respuesta, se me ha ocurrido probar con otra función y va correctamente, al menos en XP:

Código Delphi [-]
  if DirectoryExists('x:\') then
    showmessage('si')
  else
    showmessage('no');