Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Función/rutina para abrir y cerrar unidad de CD
Message
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Re: Función/rutina para abrir y cerrar unidad de CD
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01222165
Message ID:
01222270
Views:
21
No recuerdo de donde lo bajé, pero el siguiente código te sirve para ambas cosas:
*!* Automatically open and close the default CD drawer.
Declare Long mciSendString in winmm as mciSendStringA string lpstrCommand, long lpstrReturnStr, Long wReturnLenLong, Long hCallBack
local intReturn, nfilehandle
=mciSendStringA( "Set CDAudio Door Open Wait", 0, 0, 0)
intReturn = messagebox("Please insert a the CD and click OK", 0, "Unable to locate CD...")
=mciSendStringA( "Set CDAudio Door Closed Wait", 0, 0, 0)
Saludos!
By two common phrases in his vocabulary, we know Hercule Poirot was a great Developer: his use of "the little grey cells" and "order and method".
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform