Page 1 of 1

Cambio en Registro de Windows

Posted: Thu Apr 06, 2006 8:40 pm
by Jose Luis
Hola Amigos:
Hace algún tiempo puse el siguiente post

http://fivetechsoft.com/forums/viewtopic.php?t=1104

y después de muchas pruebas, ya que es de esas cosas que tenía que funcionar porque estaba todo bien estructurado, y no funcionaba, he visto la solución de casualidad aunque de manera muy chunga.
La cuestión era la siguiente:
Escribo en el registro el directorio y el nombre del pdf.
oReg:=TReg32():New(HKEY_CURRENT_USER,"SOFTWARE\PDFCreator\Program")
oReg:Set("AutosaveDirectory","c:\pruebas")
oReg:Set("AutosaveFilename",ccodpro+"-"+cliqui)
oReg:Close()
Si ahora abro el controlador de impresora
PRINT oPrn TO "PDFCreator"
.................. etc
Pues no funciona.
Pero si justo después de oReg:Close() pongo msginfo('Espera'), pues ya si funciona. Esto quiere decir que necesita tiempo para grabar en el registro antes de utilizar la impresora ?.
Voy a sustituir el msginfo() por un Timer a ver si funciona.

Comentadme algo sobre éste tema.

Saludos

Jose Luis

Posted: Fri Apr 07, 2006 9:21 am
by Antonio Linares
Jose Luis,

Usa SysRefresh() en vez de MsgInfo(). Posiblemente Windows necesite procesar algunos mensajes antes de que esté disponible.

Posted: Fri Apr 07, 2006 8:00 pm
by Jose Luis
Hola Antonio

Nada, le pongo SysRefresh(), For..Next, MsgWait(), etc. y sólo me funciona cuando pongo un mensaje que detenga y que haya que pulsar para seguir msgalert(), msginfo() etc.
No habrá algo que sustituya a ésto para que no tenga que estar dándole a la teclita cada vez que me imprima una factura ?

Saludos

Jose Luis