ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Ouvrir et fermer le lecteur CD   



L'auteur

Anatole
France France
Membre Simple
# 0000000002
enregistré le 12/10/2004

Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Ouvrir et fermer le lecteur CD
# 0000000094
ajouté le 25/11/2004 13:49:54 et modifié le 26/11/2004
consulté 8226 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Code source :
DECLARE mciSendString IN "winmm.dll" String lpstrCommand, Long lpstrReturnString, Long uReturnLength, Long hwndCallback

*---> Ouvre le lecteur CD
procedure OuvrirCD()
  mciSendString("Set CDAudio Door Open Wait", 0, 0, 0)
endproc

*---> Ferme le lecteur CD
procedure FermerCD()
  mciSendString("Set CDAudio Door Closed Wait", 0, 0, 0)
endproc
Commentaires
le 25/11/2004, Mike Gagnon a écrit :
Petite correction sur ta déclaration. Enlève le premier Long.
DECLARE mciSendString IN "winmm.dll" String lpstrCommand, Long lpstrReturnString, Long uReturnLength, Long hwndCallback

le 25/11/2004, Anatole a écrit :
Voilà c'est fait.
le 25/11/2004, eric leissler a écrit :
Bonjour Anatole.
C'est super et de plus, cela fonctionne aussi en VFP6.0

le 27/12/2004, Duc a écrit :
Bonjour Anatole,

C'est génial, par contre quand on a deux lecteurs de CD (D:, E:) et c'est toujours le premier (D:) qui s'ouvre, comment fait-on pour ouvrir l'autre (E:)

le 16/05/2014, mou7lemystic a écrit :
xa marche sur quel systeme

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3