Page 1 of 1
IDCBURN
Posted: Wed Jan 03, 2007 12:59 pm
by Silvio
I found it but I not Know How call it
http://msdn.microsoft.com/library/defau ... cdburn.asp
please can U help me,
Posted: Thu Jan 04, 2007 5:56 pm
by 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
*******************************************************
Posted: Thu Jan 04, 2007 10:47 pm
by Silvio
thank but where is the func or command "copy file" ?
Code: Select all
Stack Calls
===========
Called from: => __COPYFILE(0)
Called from: test.prg => MAIN(7)
I wanted call the burn xp procedure ...
Posted: Thu Jan 04, 2007 11:01 pm
by Silvio
PERHAPS :
Code: Select all
#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?
Posted: Thu Jan 11, 2007 7:15 pm
by HATHAL
The amendment is required
LOCAL CDBURN:=CD_Burning()+"\*.*",file_c:="c:\*.*"
COPY file_c TO &CDBURN
