Cómo detectar si contiene una Unidad de disco flexible

En este artículo se explica cómo detectar si es un disquete en la unidad de disco en sistemas basados en NT (W2K, XP)

Windows tiene la costumbre de pedir al usuario que inserte un disquete. Normalmente esto no sería un problema, pero supongamos que desea saber si es un disquete en la unidad o no.

Existen varias formas de detectar un disquete, un método fácil es la función DirectoryExists que se declara en filectrl.pas.
Si un disquete está allí, tiene éxito. Si no es así, la función no sólo después de que el usuario ha pulsado en "Cancelar" para la cuestión del tiempo que él / ella desea insertar un disquete.

Este comportamiento puede ser alterado por el (temporal) en el comportamiento de las ventanas de error al llamar a un API. Al establecer este "sólo crítica", que prevenir eficazmente las ventanas de consulta el usuario.

Aquí tiene un ejemplo de la función que comprueba si es un disquete en la unidad A.


uses filectrl;
//..//
IsFloppyInDrive función: Boolean;
var om: Integer; / / OlderrorModus
empezar
om: = SetErrorMode (SEM_FAILCRITICALERRORS);
Result: = DirectoryExists ( 'A: \');
SetErrorMode (OM);
final;