IDCBURN

[Silvio]

I found it but I not Know How call it
http://msdn.microsoft.com/library/defau ... cdburn.asp

please can U help me,

[HATHAL]

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:=""
*****************************************
#define HKEY_CURRENT_USER 2147483649
****************************************
oReg := TReg32():New(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",.f.)
uVar := oReg:Get("CD Burning","")
oReg:Close()
RETURN uVar
*******************************************************

[Silvio]

thank but where is the func or command "copy file" ?

Code: Select all  Expand view  RUN

Stack Calls
===========
   Called from:  => __COPYFILE(0)
   Called from: test.prg => MAIN(7)

I wanted call the burn xp procedure ...

[Silvio]

PERHAPS :

Code: Select all  Expand view  RUN

#Include "FiveWin.Ch"
FUNCTION MAIN()

    LOCAL oCDBurn := CREATEOBJECT( "IMAPI.ICDBURN" )

             oCDBurn:GetRecorderDriveLetter("E:\")
            *oCDBurn:HasRecordableDrive()
             oCDBurn:Burn()

    RETURN NIL


BUT IT MAKE ERROR

SOME ONE CAN HELP ME PLS?

[HATHAL]

The amendment is required
LOCAL CDBURN:=CD_Burning()+"\*.*",file_c:="c:\*.*"
COPY file_c TO &CDBURN