PROCEDURE Playsound PARAMETERS cWavFile If IsNull(cWavFile) Return .f. EndIf Declare Integer mciSendString IN WINMM String sendstr, Integer retstr, Integer szret, Integer callback mciSendString("open " + FullPath(cWavfile) + " type waveaudio alias mmwav", 0, 0, 0) mciSendString("play mmwav wait", 0, 0, 0) mciSendString("close mmwav", 0, 0, 0) Return .t. ENDPROCHTH