Detectar si diskdrive contiene un disquete
en Este artículo se explica cómo detectar si hay 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 se desea saber si un disco en la unidad o no.
Hay varias formas de detectar un disquete, un método sencillo es la función DirectoryExists la que se declara en filectrl.pas.
Si el disquete está ahí, lo consigue. Si no, la función sólo un error después de que el usuario ha pulsado en 'Cancelar' a la pregunta de si él/ella quiere insertar un disquete.
Este comportamiento puede ser alterado por (temporal) configuración de windows de error comportamiento a la hora de llamar a una api. Por poner 'sólo crítico', que efectivamente impedir que windows se consulta al usuario.
este es un ejemplo de la función que comprueba si un disco en la unidad A.
utiliza filectrl
//..//
función IsFloppyInDrive:Boolean
var om: Entero //OlderrorModus
begin
a om := SetErrorMode (SEM_FAILCRITICALERRORS)
Resultado := DirectoryExists (':/')
SetErrorMode (om)
fin
Detectar si diskdrive contiene un disquete
Detectar si diskdrive contiene un disquete : Multi-millones de consejos para hacer su vida mas facil.
en Este articulo se explica como detectar si hay 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 seria un problema, pero supongamos que se desea saber si un disco en la unidad o no.
Hay varias formas de detectar un disquete, un metodo sencillo es la funcion DirectoryExists la que se declara en filectrl.pas.
Si el disquete esta ahi, lo consigue. Si no, la funcion solo un error despues de que el usuario ha pulsado en 'Cancelar' a la pregunta de si el/ella quiere insertar un disquete.
Este comportamiento puede ser alterado por (temporal) configuracion de windows de error comportamiento a la hora de llamar a una api. Por poner 'solo critico', que efectivamente impedir que windows se consulta al usuario.
este es un ejemplo de la funcion que comprueba si un disco en la unidad A.
utiliza filectrl
//..//
funcion IsFloppyInDrive:Boolean
var om: Entero //OlderrorModus
begin
a om := SetErrorMode (SEM_FAILCRITICALERRORS)
Resultado := DirectoryExists (':/')
SetErrorMode (om)
fin
Detectar si diskdrive contiene un disquete
By Consejos Y Trucos
Detectar si diskdrive contiene un disquete : Multi-millones de consejos para hacer su vida más fácil. 