Ejecución de EXE de VFP 7.0
Hola, amigo, necesito ejecutar un programa sencillo, solo tine 250kb, esta compilado con buil exe, pero cuando lo ejecuto aparece una pantalla de VFP, como hago para evitar esta pantalla, este programa se debe ejecutar minimizado.
1 Respuesta
Respuesta de adriancr
1
Este es un ejemplo de un programa inicial. Reviza los comandos SET SYSMENU y otros y compáralo.
SET SYSMENU TO
SET SYSMENU AUTOMATIC
*
with _screen
.AutoCenter = .t.
.Caption = "Sistema de Facturación"
*.Picture = 'C:\libs\wizbmps\logo.bmp'
.icon = 'C:\sistemas\LIBS\wizbmps\visoft.bmp'
.AutoCenter = .t.
.BackColor = rgb(64,128,128)
.Fontname = 'FoxFont'
.Fontsize = 12
.WindowState = 2
.BorderStyle = 2 && Change the border to double
.Closable =.f. && Remove window control buttons
.ControlBox =.t.
.MaxButton =.f.
.MinButton =.t.
.Movable =.t.
endwith
*
public conec, oMAINTOOLBAR, oRutinas, m.tusuario
* Declara publicas las variales del archivo compania
public m.tnombcia, m.tnombcom, m.tcedula, m.ttelefono, m.tfax, m.temail, m.tmensaje1, m.tmensaje2
public m.ccia, m.tdireccion, m.pimpventas, m.hhorafinal, m.hminufinal, m.tampm
public m.mhoran, m.mmedian, m.mcuarton, m.mhorap, m.mmediap
*
set defa to ....\sistemas\internet
set classlib to ....\sistemas\libs\banco
set classlib to ....\sistemas\libs\controles additive
oRUTINAS = createobject('RUTINAS')
Use compania in 0 shared
Scatter memvar memo
*ON KEY LABEL CTRL+F11 DO FORM ACERCA &&Carga Rotulo de Derechos de Autor
DO FORM ....\sistemas\internet\forms\informa
DO ..\..\sistemas\internet\menus\Principal.MPR
read events
release all
SET SYSMENU TO
SET SYSMENU AUTOMATIC
*
with _screen
.AutoCenter = .t.
.Caption = "Sistema de Facturación"
*.Picture = 'C:\libs\wizbmps\logo.bmp'
.icon = 'C:\sistemas\LIBS\wizbmps\visoft.bmp'
.AutoCenter = .t.
.BackColor = rgb(64,128,128)
.Fontname = 'FoxFont'
.Fontsize = 12
.WindowState = 2
.BorderStyle = 2 && Change the border to double
.Closable =.f. && Remove window control buttons
.ControlBox =.t.
.MaxButton =.f.
.MinButton =.t.
.Movable =.t.
endwith
*
public conec, oMAINTOOLBAR, oRutinas, m.tusuario
* Declara publicas las variales del archivo compania
public m.tnombcia, m.tnombcom, m.tcedula, m.ttelefono, m.tfax, m.temail, m.tmensaje1, m.tmensaje2
public m.ccia, m.tdireccion, m.pimpventas, m.hhorafinal, m.hminufinal, m.tampm
public m.mhoran, m.mmedian, m.mcuarton, m.mhorap, m.mmediap
*
set defa to ....\sistemas\internet
set classlib to ....\sistemas\libs\banco
set classlib to ....\sistemas\libs\controles additive
oRUTINAS = createobject('RUTINAS')
Use compania in 0 shared
Scatter memvar memo
*ON KEY LABEL CTRL+F11 DO FORM ACERCA &&Carga Rotulo de Derechos de Autor
DO FORM ....\sistemas\internet\forms\informa
DO ..\..\sistemas\internet\menus\Principal.MPR
read events
release all
