B4J. Ejecutar .exe

- Aquí puedes encontrar la instalación y configuración del programa B4J para realizar archivos jar de Java.

- Presentación

- Vamos a ejecutar un archivo 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

__________________________________