ShellExecute (abre ventana en segundo plano - ayuda)

[jfafive]

Hola a todos,

Estoy usando

Code: Select all  Expand view  RUN

ShellExecute(0,"open",cFile,,,1 )


Pero al abrir el documento word, me deja la ventana de word aierta en segundo plano, es decir, detras del programa.

Curiosamente, si abro un .txt (invoca al bloc de notas de windows) y este, sí que me lo muestra en primer plano. Pero cuando se trata de un documento word o excel, éste queda detras.

¿hay alguna forma de hacer que muestre el documento delante de la pantalla del programa?

[csincuir]

Favi, prueba haciendolo de esta forma:

Code: Select all  Expand view  RUN

Local oWS
oWS = Createobject("WScript.Shell")
oWS:Run(cFile,0,"False" )


Saludos.

Carlos.

[jfafive]

Hola Carlos,

Parece que tu método, solo funciona bien cuando se trata de Word.
En el caso de Excell, me genera un error y en el caso del bloc de notas, no lo invoca.

No se cual puede ser la causa. ¿tal vez alguno de los parametros que se usan en el metodo oWS:Run( ... ), aunque ignoro para qué sirven.

[Antonio Linares]

Javier,

Una vez lo abras con ShellExecute(), tendrias que encontrar el handle
de la ventana con FindWindow() y teniendo el handle probar con varias
opciones como SetFocus(), BringWindowToTop(), ó SetForegroundWindow()

[jfafive]

Gracias Antonio,

Parece que la solución ha funcionado de la siguiente forma:

Code: Select all  Expand view  RUN

ShellExecute(0,"open",cFile,0,0,9 )
SetForeGroundWindow( FindWindow() )


[Antonio Linares]

Javier,

No le has pasado ningún parámetro a FindWindow() ?

[jfafive]

Pues no,

Entonces ha funcionado de chiripa!

¿puedes facilitarme algún ejemplo?
¿como se cual es el handle de la ventana que se abre con shellexecute?

[Antonio Linares]

Javier,

Puedes localizar el handle de la ventana asi:

hWnd := FindWindow( 0, "Titulo_de_la_ventana" )

[jfafive]

Gracias Antonio,