Détecter la présence d'une clé USB en Delphi

Bonjour,

Je développe sous Delphi. J'ai besoin pour mon projet de développement de savoir si une clé USB est bien connecté au port USB.

En faisant ma recherche, je suis tombé sur la procédure WM_DEVICECHANGE. Par contre je crois que cette procédure est utile pour savoir si la clé vient d’être inséré. Moi j'ai besoin de savoir si la clé est présente.

Pouvez vous m'indiquer une méthode qui permet de savoir si une clé est bien présente et connecté au port USB.

Merci

Tu pourrais balayer la liste des lecteurs (GetLogicalDriveStrings), et tester leurs types avec GetDriveType.

Bonjour,

Faire une recherche dans le sous-forum API,COM et SDKs : "USB + éjection" (pour pouvoir éjecter il faut qu'il y ait présence)

Citation:

---

Envoyé par nassim1987

Bonjour,

Je développe sous Delphi. J'ai besoin pour mon projet de développement de savoir si une clé USB est bien connecté au port USB.

En faisant ma recherche, je suis tombé sur la procédure WM_DEVICECHANGE. Par contre je crois que cette procédure est utile pour savoir si la clé vient d’être inséré. Moi j'ai besoin de savoir si la clé est présente.

Pouvez vous m'indiquer une méthode qui permet de savoir si une clé est bien présente et connecté au port USB.

Merci

---

si tu veus tester la présence de toute clef usb ,tu peus tester le type de disque présent (disque dur, disquette , clef usb... ) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var Drive: Char; begin for Drive := 'A' to 'Z' do begin case GetDriveType(PChar(Drive + ':\')) of DRIVE_REMOVABLE: //... DRIVE_FIXED: //... DRIVE_REMOTE: //... DRIVE_CDROM: //... DRIVE_RAMDISK: //... end; end;

---

par contre si tu veux tester la présence d'une clé usb unique ( genre un dongle , clé usb de protection ) , alors tu rajouttes un test sur une des particularités de ta clef , par exemple tu testes la présence d'un fichier avec filexists .

Citation:

---

Envoyé par Lung

Tu pourrais balayer la liste des lecteurs (GetLogicalDriveStrings), et tester leurs types avec GetDriveType.

---