- Presentación
- Vamos a ejecutar un archivo adivina.exe
adivina.exe
- Necesitaremos esta librería jShell.zip
- Descomprimimos la librería y copiamos los dos archivos .jar y .xml en:
C:\Program Files (x86)\Anywhere Software\B4J\Libraries
- Reiniciamos la aplicación y en la parte de abajo derecha, pulsamos en Libs, observaremos que ha cargado la jShell, la marcamos.
____________________________
- Código.
1.- Pulsamos Design, saldrá el JavaFx Scene Builder. Ponemos un botón, en la propiedad JavaFX CSS le ponemos de nombre btn_Run.
2.- Lo guardamos con nombre: layout
3.- Copiamos este código.
4.- El archivo adivina.exe deberá estar en la carpeta Objets de la aplicación que has creado.
|
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' 20 de noviembre de 2013
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("layout")
MainForm.Show
MainForm.Title = "Ejecutar una aplicación .exe."
MainForm.BackColor=fx.Colors.White
' MainForm.Icon = fx.LoadImage(File.DirAssets, "dibujo_icono.png")
MainForm.Resizable=False
End Sub
Sub btnRun_MouseClicked (EventData As MouseEvent)
Dim adivina As Shell
Dim params As List
Dim FileRun As String
params.Initialize
params.Add(File.DirApp)
FileRun= File.Combine(File.DirApp , "adivina.exe")
Log(FileRun)
'adivina.Initialize("adivina",FileRun, Null)
adivina.Initialize("adivina",FileRun, params)
adivina.WorkingDirectory = File.DirApp
adivina.Run(-1)
End Sub
Private Sub adivina_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success AND ExitCode = 0 Then
Log("Success")
Log(StdOut)
Else
Log("Error: " & StdErr)
End If
ExitApplication
End Sub
|
__________________________________