How to Play Audio CDs from Visual FoxPro

MORE INFORMATION

The following example registers the Windows Multi-Media DLL file (WINMM.DLL) by using the DECLARE command. WINMM.DLL contains the MciSendString system function that accepts parameters to allow you to manipulate media files and devices.

Step-by-Step Example

1. Create a new form and enter the following code in the Init section of the form:

      #define mmsystem "WINMM.DLL"
      DECLARE integer mciSendString IN mmsystem string, string, integer,;
         integer
      =mciSendString("open cdaudio","",0,0)
   							

2. Add a command button to the form, and set its Caption property to Play. Enter the following code in the Click event of the button:

      =mciSendString("play cdaudio","",0,0)
   							

3. Add another command button to the form, and set its Caption property to Stop. Enter the following code in the Click event of the button:

      =mciSendString("stop cdaudio","",0,0)
   							

4. Add another command button to the form, and set its Caption property to Eject. Enter the following code in the Click event of the button:

      =mciSendString("set cdaudio door open","",0,0)
   							

5. Add a final command button to the form, and set its Caption property to Exit. Enter the following code in the Click event of the button:

      CLEAR DLLS
      RELEASE THISFORM
   							

6. Press the exclamation mark (!) button on the Visual FoxPro toolbar, and enter a name for the form.