In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Un proceso viejo con DDE

Foro público de Xailer en español
Responder
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

Un proceso viejo con DDE

Mensaje por Moises Leon »

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
Arriba
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

Un proceso viejo con DDE

Mensaje por 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
Arriba
Responder

Volver a “Xailer Spanish”