Comprobar si existe una unidad de disco

[marconi]

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');