FiveTech Support Forums

Amigos del foro:
¿Es posible copiar ficheros ("quemarlos") en CD/DVD desde dentro de FWXH? ¿Existe alguna funcion externa que pueda ser llamada por FWXH?
Saludos

Antonio Linares wrote:Prueba este ejemplo:

http://www.mediafire.com/?sharekey=3b4f ... cd653d79a1

Code: Select all Collapse

#include "FiveWin.ch"

#define  HKEY_CURRENT_USER  0x80000001

function Main()

   local oCDRec := TCDRec():New()
   local oReg32, cValue
   
   MsgInfo( oCDRec:IsAvailable() )
   
   MsgInfo( oCDRec:GetDrive() )

   oReg32 = TReg32():New( HKEY_CURRENT_USER,;
                          "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" )
   oReg32:Get( "CD Burning", @cValue )
   MsgInfo( cValue )
   oReg32:Close()

   // MsgInfo( oCDRec:GetPath() )

   // aqui llamar al método addfile por cada fichero

   oCDRec:Burn()
    
   oCDRec:End() 

   MsgInfo( "ok" )

return nil

CLASS TCDRec

   DATA   hCD
   DATA   aFiles
   
   METHOD New()
   
   METHOD AddFile( cFile ) VIRTUAL
   
   METHOD GetSize() VIRTUAL
   
   METHOD IsAvailable() INLINE CDAvailable( ::hCD )
   
   METHOD GetDrive() INLINE CDDrive( ::hCD )
   
   METHOD GetPath() INLINE CDGetPath()
   
   METHOD Burn( hWnd ) INLINE CDBurn( ::hCD )
   
   METHOD End() INLINE CoUninitialize()
   
ENDCLASS  

METHOD New() CLASS TCDRec

   CoInitialize()

   ::hCD = CDInit() 
   
   ::aFiles := {}
   
return Self