RE:Ejemplo de Prg Principal...
Aqui te dejo un ejemplo de ejecutable (Monousuario y/o Multiusuario):
En un prg:
SET SYSMENU TO
SET OPTIMIZE ON
set echo off
set talk off
set safety off
set color to
set CLOCK status
SET HOURS TO 12
set century on
set date to dmy
SET NOTIFY off
set exclusive off
ON SHUTDOWN DO Salir.prg
LOCAL fxNewDir
*!* directorio del ejecutable
fxNewDir = JUSTPATH(SYS(16, 0))
CD (fxNewDir)
SET DEFAULT TO (fxnewdir)
Origen_Bd=fxNewDir+'datos*.*'
Abrir_Bd=fxNewDir+'Datosdb.dbc SHARED'
SET EXACT ON
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET SYSMENU OFF
SET SYSMENU automatic
SET STATUS BAR ON
SET PATH TO ;Datos;bmp
*** Entorno de trabajo de la Pantalla Principal ***
_screen.caption = "Titulo de la Pantalla Principal"
_screen.WindowState= 2
_screen.Icon="f3.ico" ** Icono de la Pantalla Principal **
_screen.BackColor=RGB(255,255,255)
deactivate window "Command"
deactivate window "Estándar"
_SCREEN.MINBUTTON = .T.
_SCREEN.MAXBUTTON = .f.
_SCREEN.Movable= .T.
_SCREEN.FontSize= 10
_SCREEN.FontName= "Tahoma"
*** Codigo para Centrar una imagen en la Pantalla Principal ***
@ 2.000,2.000 Say "imagen1.jpg" Bitmap STYLE "T" Center
SET SYSMENU TO
SET SYSMENU AUTOMATIC
*** Aqui escribe el archivo a ejecutar (Formulario o Menu) ***
*** BIENVENIDA***
DO FORM login.scx
READ EVENTS *** Importante para que tu ejecutable no desaparezca ***
CLEAR EVENTS
*******************FIN *****************
Suerte►