FoxPress – Marzo 2000

El ShellExecute

Por la Redacción de FoxPress

http://www.fpress.com/

Las múltiples funcionalidades de ShellExecute ya han sido comentadas varias veces en esta revista. Una de las principales es lanzar el Explorer por defecto o el lector de correo por defecto (vease FoxPress de Febrero de 2000)

Pero tiene más. El código que adjunto nos permite lanzar el Word e imprimir el documento que se lanza. Ya se ve que es un camino alternativo al OLE.

* Declaramos la función

DECLARE INTEGER ShellExecute IN Shell32;

INTEGER hwnd, STRING @lpOperation,;

STRING @lpFile,;

STRING @lpParameters, STRING ;

@lpDirectory, SHORT nshow

* En lcArchivo ponemos el path completo del

* documento Word

lcArchivo = 'c:\jos.doc'

lcdir = JUSTPATH(lcfile)

lcop = 'print'

lnresult = ShellExecute(0, @lcop, ;

@lcArchivo, "", @lcdir, 0)

IF lnresult < 32

* Error

ENDIF

FoxPress – Marzo de 2000