**************************************************************
*** CAMBIAR EL PAPEL TAPIZ DEL ESCRITORIO
**************************************************************
*-- Para personalizar una aplicacion cuando la instalamos.

DECLARE LONG SystemParametersInfo IN "user32";
  LONG uAction,;
  LONG uParam,;
  STRING lpvParam,;
  LONG fuWinIni

filename = GETFILE('bmp')

=SystemParametersInfo(20, 0, filename, 1)


**************************************************************
*** ABRIR Y BUSCAR DENTRO DE ARCHIVOS HELP
**************************************************************
*-- Muy Buen Ejemplo para estudiarlo.

DECLARE LONG WinHelp IN "user32" ;
  INTEGER HWND,;
  STRING lpHelpFile,;
  LONG wCommand,;
  LONG dwdata

HELP_CONTENTS = 1
HELP_FINDER = 1

sHelpFile = "winfile.hlp"
lCommand = HELP_CONTENTS
lOption = 0
lResult = WinHelp(0, sHelpFile, lCommand, lOption)


**************************************************************
*** INDICAR QUE TIPO DE DRIVE ES LA UNIDAD
**************************************************************
*-- Muy util para reconocer unidades en red mas que todo.

DECLARE LONG GetDriveType IN "kernel32" ;
  STRING nDrive

disco=GetDriveType("H:")

? disco

*-- Parametros devueltos por GetDriveType
* DESCONOCIDO = 1
* DISCO REMOVIBLE = 2
* DISCO DURO = 3
* DISCO EN RED = 4
* CDROM = 5
* DISCO RAM = 6

**************************************************************
*** CONECTAR Y DESCONECTAR UNIDADES DE RED
**************************************************************
*-- Util cuando por algun motivo se desconecta
*-- la unidad donde esta alojado el servidor.

*-- Conectar Unidad de Red
DECLARE LONG WNetAddConnection IN "mpr.dll";
  STRING lpszNetPath,;
  STRING lpszPassword,;
  STRING lpszLocalName,;

=WNetAddConnection("\\plantant\vfp98","","K:")

*-- desconectar Unidad de Red
DECLARE LONG WNetCancelConnection IN "mpr.dll" ;
  STRING lpszName,;
  LONG bForce

=WNetCancelConnection("K:", 0)

**************************************************************
*** PARA CAPTURAR LA IMAGEN DEL ESCRITORIO AL MOMENTO
**************************************************************
*-- Este ejemplo simula la pulsacion de la tecla "Impr Pant".

DECLARE LONG keybd_event IN "user32";
  INTEGER bVk,;
  INTEGER bScan,;
  LONG dwFlags,;
  LONG dwExtraInfo

=keybd_event (44, 1, 0, 0)

**************************************************************
*** PARA VER ARCHIVOS AVI EN PANTALLA COMPLETA
**************************************************************

DECLARE LONG mciSendString IN "winmm.dll";
  STRING lpstrCommand,;
  STRING lpstrReturnString,;
  LONG uReturnLength,;
  LONG hwndCallback

=mciSendString("play c:\windows\help\closewin.avi fullscreen", 0, 0, 0)

**************************************************************
*** POSICIONAR EL CURSOR
**************************************************************
*-- Notará que al ejecutar el formulario el puntero
*-- estará justamente encima del botón.

** Agregue en un formulario un command buttom
** En el evento init del formulario coloque
DECLARE LONG SetCursorPos IN "User32" ;
  INTEGER x,;
  INTEGER Y

X1 = (THISFORM.Command1.LEFT+60)
Y1 = (THISFORM.Command1.TOP+120)

=SetCursorPos (x1,y1)

THISFORM.REFRESH