Encontre esto aqui esta el copy/paste
Esta función ejecuta el asistente de grabación de CD de windows para grabar los archivos temporales que haya para grabar. Una vez hayas copiado los datos a la carpeta de grabacióbn de CD, llamar a esta función y el asistente grabará los datos automáticamente.
He añadido la funcionalidad de poder borrar o no los ficheros temporales tras la grabación para que sepais como obtener la ruta de CDBurning de Windows desde el registro (la función "deltree" es parecida a la de la sección "FUNCIONES", pero no borra la carpeta original)
* Ejemplo de uso:
=GrabarCD('D:\',.T.)
***************************************************************
* Esta función graba los datos que hay pendientes de
* grabar en la unidad de CD de Windows, mediante llamadas
* a funciones internas del SO, con la posibilidad de
* eliminar los datos después de realizar la grabación
*
* PARAMETROS:
* unidad(String) - Letra de la unidad donde está la grabadora
* (debe acabar con el carácter ':\' ).
* vaciar(Boolean) - Si es .T., borra los datos pendientes
* de la unidad de grabación.
* RETORNO: Esta función no devuelve nada.
***************************************************************
FUNCTION GrabarCD(MyCD,vaciar)
** Objecto APPLICATION
sApp = CREATEOBJECT("Shell.Application")
** Objecto SHELL
sh = CREATEOBJECT("WScript.Shell")
** Abrimos Mi PC
ns = sApp.NameSpace(17)
** Abrimos unidad de grabación
np = ns.ParseName(MyCD)
** Damos la orden de grabar el CD
np.InvokeVerbEx("Grabar estos arc&hivos en un CD")
** Esperamos mientras se activa el asistente
DO WHILE NOT sh.appactivate("Asistente para grabación de CD")
* WAIT "" TIMEOUT 2
ENDDO
** Insertamos la fecha actual
MyDateCode = TTOC(DATETIME(),1)
sh.appactivate("Asistente para grabación de CD")
sh.SendKeys(MyDateCode)
** Iniciamos grabación
sh.appactivate("Asistente para grabación de CD")
sh.SendKeys("{Enter}")
** Esperamos mientras se cierra el asistente
DO WHILE sh.appactivate("Asistente para grabación de CD")
WAIT "" TIMEOUT 5
ENDDO
IF vaciar == .T.
** Borramos los archivos del directorio temporal de grabación de CD's
MyTarget = sh.regread("HKCU\Software\Microsoft\Windows\" + ;
"CurrentVersion\Explorer\Shell Folders\CD Burning")
deltree(MyTarget,.F.)
** Liberamos el objecto SHELL
RELEASE sh
ENDIF
ENDFUNC
Fuente :
http://www.portalfox.com/index.php?name=News&file=article&sid=2453&mode=nested&order=0&thold=0
