Détecter si le lecteur de cd contient une disquette
Cet article explique comment détecter si une disquette est dans le lecteur de disque sur NT (w2k, XP)
Windows a l'habitude de demander à l'utilisateur d'insérer une disquette. Normalement, ce ne serait pas un problème, mais supposons que vous voulez savoir si une disquette est dans le lecteur ou pas.
Il existe plusieurs façons de détecter une disquette, une méthode simple est la fonction DirectoryExists qui est déclaré dans filectrl.pas.
Si une disquette est là, il réussit. Si non, la fonction échoue seulement après que l'utilisateur a appuyé sur 'Annuler' à la question qu'il/elle veut insérer une disquette.
Ce comportement peut être modifié par (temporaire) de la définition de la windows erreur de comportement lors de l'appel d'une api. Par cette définition de 'critique seulement', nous avons effectivement empêcher les fenêtres d'interrogation de l'utilisateur.
Voici un exemple de fonction qui vérifie si une disquette est dans le lecteur A.
utilise filectrl
//..//
fonction de IsFloppyInDrive:Boolean
var om: Entier //OlderrorModus
begin
om := SetErrorMode (SEM_FAILCRITICALERRORS)
Result := DirectoryExists ('A:\')
SetErrorMode (om)
fin
Detecter si le lecteur de cd contient une disquette
Detecter si le lecteur de cd contient une disquette : Plusieurs milliers de conseils pour vous faciliter la vie.
Cet article explique comment detecter si une disquette est dans le lecteur de disque sur NT (w2k, XP)
Windows a l'habitude de demander a l'utilisateur d'inserer une disquette. Normalement, ce ne serait pas un probleme, mais supposons que vous voulez savoir si une disquette est dans le lecteur ou pas.
Il existe plusieurs façons de detecter une disquette, une methode simple est la fonction DirectoryExists qui est declare dans filectrl.pas.
Si une disquette est la, il reussit. Si non, la fonction echoue seulement apres que l'utilisateur a appuye sur 'Annuler' a la question qu'il/elle veut inserer une disquette.
Ce comportement peut etre modifie par (temporaire) de la definition de la windows erreur de comportement lors de l'appel d'une api. Par cette definition de 'critique seulement', nous avons effectivement empecher les fenetres d'interrogation de l'utilisateur.
Voici un exemple de fonction qui verifie si une disquette est dans le lecteur A.
utilise filectrl
//..//
fonction de IsFloppyInDrive:Boolean
var om: Entier //OlderrorModus
begin
om := SetErrorMode (SEM_FAILCRITICALERRORS)
Result := DirectoryExists ('A:\')
SetErrorMode (om)
fin
Détecter si le lecteur de cd contient une disquette
By commentfaire
Détecter si le lecteur de cd contient une disquette : Plusieurs milliers de conseils pour vous faciliter la vie.
