Sebastian, proba con esto
Local cFileName As String, cParams As String
cFileName = 'SegundoPlano.exe'
cParams = ''
Declare Integer ShellExecute In shell32.Dll As ShellExe ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin
ShellExe(0,'open',cFileName,cParams,"",1)
Clear Dlls ShellExe
Saludos
PabloC
De: [email protected] [mailto:[email protected]] En nombre de Massetti Sebastian
Enviado el: Jueves, 04 de Marzo de 2010 10:04
Para: GUFA List Member
Asunto: [GUFA] Perdida de Foco de Aplicación Principal
Hola Lista:
Estoy invocando un archivo .EXE desde una aplicación, y el problema que
tengo es que luego de ejecutarse ese .EXE la ventana de la aplicación pierde
el foco y la única forma es que el usuario presione click sobre la ventana
principal para volver a tener foco.
Estoy utilizando este procedimiento para invocar el programa externo:
wait window "Verificando Backups pendientes de reguardo..." nowa
release obj1
local obj1 as object
obj1= createobject("wscript.shell")
obj1.run("\sga\cusr\mic\SegundoPlano.exe",0,0)
wait window "Verificando Backups pendientes de reguardo.
Finalizado" timeout 1
SI LO INVOCO DIRECTAMENTE , de la siguiente manera:
RUN \sga\cusr\mic\SegundoPlano.exe" /N
no hay problema y la ventana nunca pierde el foco, pero el problema es que
veo ventana de CMD de MSDOS mientras se ejecuta, lo cual quiero evitar.
Alguien sabe como hacer para invocar un programa externo a la aplicación sin
que se vea la ventana de dos y que la aplicación no pierda el foco mientras
se invoca ese programa en segundo plano ?
Gracias.
