Page 1 of 1

Se puede ocultar una ventana Java?

Posted: Sat Dec 16, 2017 3:49 pm
by José Vicente Beltrán
Hola a todos,
¿Se puede ocultar, mientras se ejecuta, la ventana de una aplicación Java que se ha llamado desde una aplicación FW?.
Esto lo he hecho muchas veces con ventanas windows, pero en este caso ignora los argumentos.
Convierto el archivo .jar en .exe mediante 'Launch4j' u otro similar y lo llamo desde código FW

Code: Select all

WaitRun( "appjava.exe", 2 )
SHELLEXECUTE(,"open", "appjava.exe",,, 2)
En _ se ejecuta la aplicación pero la ventana luce en todo su esplendor mientras se ejecuta y no encuentro la forma de ocultarla.
¿Se puede hacer?
Gracias por su interés :shock:

Re: Se puede ocultar una ventana Java?

Posted: Sun Dec 17, 2017 9:03 am
by José Vicente Beltrán
Entonces..... ¿no es posible?

Re: Se puede ocultar una ventana Java?

Posted: Sun Dec 17, 2017 12:05 pm
by cnavarro
Prueba

Code: Select all

WaitRun( "MyExe.Exe", 0 )
 

Re: Se puede ocultar una ventana Java?

Posted: Sun Dec 17, 2017 12:30 pm
by russimicro
// lector.bat
// java -jar "lector\lector.jar" %1 %2 %3 %4

FUNCTION capturaHuellaGanaPuntos() // oculta fw .. activa java

LOCAL cUniZer := "C:\TEMP\ZERUS\"
LOCAL APP_TITLE := "RUSSOFT - Lector de Huellas"
LOCAL hWnd := FindWindow( 0, APP_TITLE )

IF hWnd > 0

SetForeGroundWindow( hWnd )

ELSE

ShellExecute( , "open", "LECTOR.BAT " ,;
["] + M->cCajIni + [" ] + ;
["] + ALLTRIM(m->cNomUsr) + [" ] + ;
["] + ALLTRIM(m->cCiaAct) + [" ] + ;
["] + ALLTRIM(m->cNroUsr) + ["] ,, 6 )
inkey(2)
ENDIF


RETURN .T.

//********************************************************
activaDialogo(HB_OEMTOANSI("nombre dialogo fw que desea quedar activo")) // activo fw ... oculta java

FUNCTION activaDialogo(cTitDia)

LOCAL hWnd := FindWindow( 0, cTitDia )

IF hWnd > 0
SetForeGroundWindow( hWnd )
ENDIF

RETURN .T.


Re: Se puede ocultar una ventana Java?

Posted: Mon Dec 18, 2017 9:28 am
by José Vicente Beltrán
Gracias a ambos por contestar.
Cristobal, el parámetro '0' también es ignorado al igual que el '2'. :shock:
Russimicro, voy a probar tu sugerencia a ver si consigo que funcione. :shock: