Xailer & OZ Software

Buenas tardes;
En un programa viejo de instalación, tenia esta función para agregar un
grupo en la opción de Inicio de Windows, como podria hacerlo en Xailer? :
FUNCTION CreaGrupo()
DEFINE DDE oDde SERVICE "Progman" TOPIC "Progman"
ACTIVATE DDE oDde
oDde:Execute( "[DeleteGroup( Data Compensation )]" )
oDde:Execute( "[CreateGroup( Data Compensation )]" )
oDde:Execute( "[ShowGroup( Data Compensation , 1 )]" )
oDde:Execute( "[AddItem( "+::cTarget+"SYSRESUL.EXE, Analisis de
Resultados)]" )
oDde:Execute( "[AddItem( "+::cTarget+"ReferenciaRapida.pdf,
ReferenciaRapida.pdf)]" )
oDde:Execute( "[AddItem( "+::cTarget+"README.TXT, ReadMe.TXT)]" )
oDde:Execute( "[CloseGroup( Data Compensation , 1 )]" )
RETURN NIL
Muchas gracias por su ayuda
Moises Leon

Creo que no es la forma correcta pero esto funciono:
cDir := "Data Compensation"
IF !ExistDir(GetFolderPrograms()+""+cDir)
MakeDir(GetFolderPrograms()+""+cDir)
ENDIF
FCOPY( "Resultados.lnk",
GetFolderPrograms()+""+cDir+"Resultados.lnk" )
FCOPY( "ReadMe.lnk",
GetFolderPrograms()+""+cDir+"ReadMe.lnk" )
FCOPY( "Referencia Rapida.lnk", GetFolderPrograms()+""+cDir+"Referencia
Rapida.lnk" )
"Moises Leon" wrote in message news:[email=536c0387@svctag-j7w3v3j....]536c0387@svctag-j7w3v3j....[/email]
Buenas tardes;
En un programa viejo de instalación, tenia esta función para agregar un
grupo en la opción de Inicio de Windows, como podria hacerlo en Xailer? :
FUNCTION CreaGrupo()
DEFINE DDE oDde SERVICE "Progman" TOPIC "Progman"
ACTIVATE DDE oDde
oDde:Execute( "[DeleteGroup( Data Compensation )]" )
oDde:Execute( "[CreateGroup( Data Compensation )]" )
oDde:Execute( "[ShowGroup( Data Compensation , 1 )]" )
oDde:Execute( "[AddItem( "+::cTarget+"SYSRESUL.EXE, Analisis de
Resultados)]" )
oDde:Execute( "[AddItem( "+::cTarget+"ReferenciaRapida.pdf,
ReferenciaRapida.pdf)]" )
oDde:Execute( "[AddItem( "+::cTarget+"README.TXT, ReadMe.TXT)]" )
oDde:Execute( "[CloseGroup( Data Compensation , 1 )]" )
RETURN NIL
Muchas gracias por su ayuda
Moises Leon