FoxPro/Visual FoxPro - Consulta

Hola Buen dia, mi consulta es la siguiente
quiero crear un boton que en el evento click
abra un archivo PDF con el Acrobat...
probe con la sentencia
run /n start c: est.pdf
y no anda
tengo visual fox pro 6
espero su respuesta. Gustavo

Prueba algo como esto

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin

cFileName = "c:est.pdf"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)

* PARA EL PDF
*****************
LOCAL nom1,ruta1
nom1=ALLTRIM('circular1') && ESTE ES EL ARCHIVO
ruta1="C: emporal" && ESTE ES LA RUTA DONDE ESTA EL ARCHIVO
* AUNQUE PUEDES PEDIR CON GETDIR ... para definir donde se encuentra el PDF
** ruta = getdir( ruta, 'Carpeta Origen de los Datos')

IF FILE(ruta1+nom1+'.pdf')=.t.
WAIT "Abriendo PDF, Espere un momento" WINDOW NOWAIT
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
ShellExecute(0,"Open",ruta1+nom1+'.pdf',"","",1)
CLEAR DLLS ShellExecute
ELSE
MESSAGEBOX("El Archivo:" +nom1 +'.pdf'+SPACE(2)+"no existe en esta Pc, verifique",16,"Error")
ENDIF

* ESTE ABRE UN ARCHIVO DE EXCEL
*******************************************

LOCAL nom1,ruta1
nom1=ALLTRIM('xx')
ruta1="C: emporal"

lcLibro=ruta1+nom1+'.xls'
lcHoja="Hoja1"

IF FILE(ruta1+nom1+'.xls')=.t.
WAIT "Abriendo XLS, Espere un momento" WINDOW NOWAIT
oExcel = CREATEOBJECT("Excel.Application")
ActiveSheet = ALLTRIM(lclibro)
WITH oExcel
.APPLICATION.WorkBooks.OPEN(Activesheet)
.APPLICATION.WorkSheets(lcHoja).ACTIVATE
.VISIBLE=.T.
ENDWITH
ELSE
MESSAGEBOX("El Archivo:" +nom1 +'.xls'+SPACE(2)+"no existe en esta Pc, verifique",16,"Error")
ENDIF

** saludos alexcoinc

Muchas gracias tema solucionado ;)