>I'm able to access the functions like eject, but I am still unable to write audio disks. Here is the code that I am using for writing audio disks:
>
>THISFORM.ole1.object.opendrive(0)
>THISFORM.ole1.object.insertaudiotrack(filename,1)
>THISFORM.ole1.object.closedisc=.t.
>THISFORM.ole1.object.closesession=.t.
>THISFORM.ole1.object.writetype=0
>THISFORM.ole1.object.writedisc
>
>Is there something that I'm missing???
>
>TIA
>Rob

Rob,

Try something like:

WITH THISFORM.Ole1.Object
   .OpenDrive(0)
   .insertaudiotrack(filename,1)
   .LockDrive()
   Store .T. to .CloseDisc
   Store .T. to .CloseSession
   Store  0  to .WriteType
   .writedisc()
ENDWITH

In the WritingComplete event of the ActiveX object (Ole1)

ThisForm.WriteCompleted()

In ThisForm.WriteCompleted

WITH THISFORM.Ole1.Object
   .UnlockDrive()
   .Eject()
ENDWITH

The settings would not change on the ActiveX until I used the STORE .. TO calls. To see the process, I also entered updates inside the following:
CachingTrack, ClosingSession, ClosingTrack, TrackWriteStart, TrackWriteStatus.
I only currently use this in the Backup of our program. It does work for several of our clients, as long as the disc is not already formated for read-write by the operating system.

HTH,