FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour IDCBURN
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
IDCBURN
Posted: Wed Jan 03, 2007 12:59 PM

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
Posts: 80
Joined: Tue Nov 15, 2005 03:38 PM
IDCBURN
Posted: Thu Jan 04, 2007 05:56 PM

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


Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
IDCBURN
Posted: Thu Jan 04, 2007 10:47 PM
thank but where is the func or command "copy file" ?
Stack Calls
===========
   Called from:  => __COPYFILE(0)
   Called from: test.prg => MAIN(7)


I wanted call the burn xp procedure ...
Best Regards, Saludos



Falconi Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
IDCBURN
Posted: Thu Jan 04, 2007 11:01 PM
PERHAPS :

#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?
Best Regards, Saludos



Falconi Silvio
Posts: 80
Joined: Tue Nov 15, 2005 03:38 PM
IDCBURN
Posted: Thu Jan 11, 2007 07:15 PM

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

:D

Continue the discussion