No recuerdo de donde lo bajé, pero el siguiente código te sirve para ambas cosas:
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".
