Run PKZIP -a -& a:\nombrezip
c:\programadatos\*.dbf

?GETENV("temp") && Directorio de archivos temporales

?GETENV("windir")  && Directorio de Windows

_screen.addobject("oImg",
"image")

_screen.oImg.picture = "c:\imagen.jpg"

_screen.oImg.visible = .T.

_screen.oImg.stretch = 1

_screen.oImg.width = 640

_screen.oImg.height = 400

_Screen.AddObject("oTime","TimerScreen")

* Definicion de la Clase TimerScreen

* Muestra un Reloj en un Wait Window

* Este se actualiza cada un segundo

Define Class TimerScreen
As Timer

   
Interval= 1000

    Procedure Timer

       
Wait Window (Time())
Nowait

   
EndProc

EndDefine

Primero debes agregar al prg principal en
la primera línea

PARAMETERS uParam1, uParam2, uParam3

El código anterior se encargara de recoger
los parámetros pasados como argumentos desde la línea de comandos; en
este caso sólo recogerá tres parámetros

Cuando ejecutes el programa debes pasar los
parámetros de la siguiente manera; teniendo en cuenta que todos son leídos
por el ejecutable como tipo carácter, es decir, si le pasas el número 80
el ejecutable lo leera como "80" de tipo carácter

C:programa.exe Para1 200 Para3

RUN /N nombreprotector.scr
/S

Si quieres volver loco a cualquier
persona utiliza este truco; cuando por ejemplo presionas la
letra a entonces te muestra x.

If inlist(nKeyCode, 97,
65)

   nodefault

   keyboard "X"

EndIf

Tanto el EditBox como el TextBox incorporan la
nueva propiedad MaxLength donde podemos indicar el número máximo de
caracteres que se pueden introducir. Esta propiedad anula a InputMask.
También tenemos que tener en cuenta que sólo es válida para caracteres y
no para números. Para estos deberemos seguir utilizando la técnica de
poner dentro del InputMask tantos 9 como dígitos. 

Cuando ejecutamos un reporte y este
muestra la barra de Preview, muchas veces deseamos colocarla
anclada al resto de barras.

Primero
ejecutamos el reporte con la cláusula tradicional:

Report
Form nombrereporte.frx preview nowait

If
wexist("Print Preview")

  
 move window _Print Preview_ to 10,10

  
 mouse dblclick at 11,11

Endif

Podemos manipular las
propiedades de un formulario desde código.

Como sabemos un reporte no
es más que una tabla donde se almacenan los objetos y las propiedades de
estos que luego son invocados por el Dataenvironment.

Bueno para cambiar las
propiedades de los reportes desde código debemos abrir el reporte como
una tabla:

USE nombrereporte.frx 

REPLACE fontface with "Verdana", fontsize WITH 10, fontstyle
WITH 1 FOR objtype = 1



Con esto ponemos como predeterminado la fuente Verdana a 10 puntos y
negrilla, si en fontstyle ponemos 0 tendremos letra normal.

Este
es un truco bastante importante y sencillo; su aplicación es determinante
cuando queremos agregar los datos a una tabla mostrados en
un cursor

APPEND FROM DBF(_nombre_cursor_)

OPEN DATABASE c:Ruta_Base_de_Datos.dbc

cNomTablas = ADBOBJECT(infVector, "TABLE")

FOR EACH cNomTablas IN infVector

    ? cNomTablas

ENDFOR

lCadena = "El
amor es el perdón más fácil"

En el Evento Init( ) del formulario se
devuelve .F. y el formulario no se cargara

Método Init ( )

   Return .F.

Una
forma sencilla de borrar archivos sin complicaciones.

ERASE *.tmp