>Con estas instruciones abrimos un archivo en Excel
>
>AbrirExcel("F:\SAI-XP\SAI2009\Hoja.XLS")
>
>FUNCTION AbrirExcel
>*******************
>PARAMETERS Archivo
>MESSAGEBOX("Archivo a abrir con EXCEL: "+Archivo)
>oExcel = CreateObject("Excel.Application")
>oExcel.Visible = .T.
>oExcel.Workbooks.Open(Archivo)
>
>Quisiéramos saber como abrir un Archivo .DOC con WORD o un
>archivo .PDF con Acrobat Reader o un archivo cualquiera con la aplicación WINDOWS asociada por la extensión
>
>Gracias


Hola Carlos,

Tal vez faq#8134 pueda ayudarte

En lugar de

lnResult=ShellExecute(FindWindow( 0, _SCREEN.caption), "Open", tcDocument, "", "c:\temp\", 1)

puedes utilizar

declare integer GetDesktopWindow IN win32api

lnResult=ShellExecute(GetDesktopWindow(),  "Open", tcDocument, "", "c:\temp\", 1)