Cambio en Registro de Windows
Posted: Thu Apr 06, 2006 8:40 pm
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
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