Discussion :

[yann87]

Bonjour,
J'aimerais savoir s'il est possible sous Delphi de détecter la présence un périphérique USB. Existe-t-il des commandes ou composants tout faits sous
Delphi ?

[Cl@udius]

Salut

Tu peux déjà lire cette discussion d'ero-sennin sur le sujet: ici

@+ Claudius

[ero-sennin]

Salut,

Tu peux aller voir mon thread (page 5 post 65 il y a les sources ainsi qu'une démo)

En espérant que celà t'aide

[Edit]
Grillé

[yann87]

J'ai télécharger la démo de ero-sennin concernant la détection automatique un périphérique USB. Je suis allé à la page 5 post 65 et télécharger DemoUSBStorage+paquetage(2)zip. Quand je compile l'application il y un message suivant: Fichier non trouvé 'Variant.pas'. D'après les conseils
C:\Program Files\Borland\Delphi7\Sources\rlt\Sys mais je ne trouve pas est ce du faite que j'ai delphi 5 ? En ce qui concerne je voudrai bien un exe de ero-sennin pour voir s'il l'application me convient. Merci d'avance

[ero-sennin]

Salut,

A première vu, je dirai que le soucis provient de la configuration de Delphi ...
Le mieux serait de faire une recherche sur ton disque dur du fichier mentionné (Variant.pas) afin de voir si il est bien présent sur ton disque dur.

Sinon, je t'ai mis à disposition l'éxecutable.
Tiens nous au courant de la situation!

A+

[yann87]

Ok merci ero-sennin il fonctionne sans aucun de souci mais quand j'insère la clé USB on voit la fenetre de windows de xp qui vienne s'afficher sur la fenetre de ton appli (si on peut fermer cette fenetre quand j'insère la cle USB). Sinon est cet exe a le meme code que "DemoUSBStorage+paquetage(2)zip"?.

[ero-sennin]

Re,

Pour enlever la fenêtre d'exécution automatique lors qu'un média est connecté, tu peux faire ceci :

Cliquer Démarrer/Exécuter, puis saisir la commande suivante :

gpedit.msc

- Cliquer sur Configuration Ordinateur/Modèles d'administration/Système
- Double-cliquer sur "Désactiver le lecteur automatique"
- Là tu peux sélectionner soit :
o "Activer" et mettre celà pour "Lecteur de CD-ROM"
o "Désactiver"
- Valider en cliquant sur OK

Je n'ai pas le temps de voir celà par programmation ...

Pour ta seconde question, la démo que je t'ai fourni est bien le projet qui provient de "DemoUSBStorage+paquetage(2)zip" ... Je l'ai juste compilé.

[yann87]

La méthode pour enlever la fenêtre d'exécution automatique marche nickel. Bien vu l'Hérro. Mais par contre j'ai dézipper de

nouveau "DemoUSBStorage+paquetage(2)zip" et quand je lance le projet dpr. J'ai un message suivant Classe TUSBSTORAGE non trouve. Ignorer l'erreur ou continuer etcc. Et quand je clique sur annuler j'ai une deuxième fenetre Erreur à la création de la fiche class TUSBStorage non trouve.

Je crois qu'il faut installer le paquet mais j'ai un petit doute(écraser la configuration installer d'origine du PC).

Avez vous rencontrer ce genre de message.