with thisform .MMControl1.Notify = .f. .MMControl1.Wait = .t. .MMControl1.Shareable = .f. .MMControl1.DeviceType = "WaveAudio" .MMControl1.FileName = "c:\suncsc\forms\test1.WAV" * Open the MCI WaveAudio device. .MMControl1.Command = "Open" endwithTo save the recording:
with thisform .MMControl1.Notify = .f. .MMControl1.Wait = .f. * Saven the MCI WaveAudio device file. .MMControl1.Command = "save" endwithIN the unload you do:
with thisform .MMControl1.Notify = .f. .MMControl1.Wait = .f. * Close the MCI WaveAudio device. .MMControl1.Command = "close" endwith