I found it but I not Know How call it
http://msdn.microsoft.com/library/defau ... cdburn.asp
please can U help me,
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
I found it but I not Know How call it
http://msdn.microsoft.com/library/defau ... cdburn.asp
please can U help me,
Welcome Silvio,
I used the following function to View copies Path of CD-ROM
And i copies of the files To Path
Of Windows copies files to cd ROM Auto.
the example WINDOWS XP 2
FUNC MAIN()
LOCAL CDBURN:=CD_Burning()+"*.",file_c:="c:*."
COPY file_c TO &CDBURN
RETURN NIL
func CD_Burning()
LOCAL oReg,uVar:=""
oReg := TReg32():New(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",.f.)
uVar := oReg:Get("CD Burning","")
oReg:Close()
RETURN uVar
Stack Calls
===========
Called from: => __COPYFILE(0)
Called from: test.prg => MAIN(7)#Include "FiveWin.Ch"
FUNCTION MAIN()
LOCAL oCDBurn := CREATEOBJECT( "IMAPI.ICDBURN" )
oCDBurn:GetRecorderDriveLetter("E:\")
*oCDBurn:HasRecordableDrive()
oCDBurn:Burn()
RETURN NILThe amendment is required
LOCAL CDBURN:=CD_Burning()+"*.",file_c:="c:*."
COPY file_c TO &CDBURN
![]()