This is a good trick Louis, thanks!

>>ANother trick
>>**********
>
>More trick
>
>

>*----------------------------------------------------
>* FUNCTION BuscaExcel
>*----------------------------------------------------
>* Busca si Excel está instalado
>* RETORNO: .T. Si Excel está instalado
>* USO: ? BuscaExcel
>*----------------------------------------------------
>FUNCTION BuscaExcel
>	LOCAL lcArchivo, lc, lcRutaExe, llRet
>
>	*--- Creo un archivo .xls
>	lcArchivo = SYS(5) + "\" + SYS(3) + ".xls"
>	STRTOFILE("*", lcArchivo, .T. )
>
>	lc = SPACE(0)
>	lcRutaExe = SPACE(128)
>	llRet = .F.
>
>	DECLARE INTEGER FindExecutable IN shell32 ;
>		STRING @lcArchivo, ;
>		STRING @lc, ;
>		STRING @lcRutaExe
>
>	*--- Busco el archivo asociado a .xls
>	IF FindExecutable(@lcArchivo, @lc, @lcRutaExe) > 32
>		IF "EXCEL.EXE" $ UPPER(lcRutaExe)
>			llRet = .T.
>		ENDIF
>	ENDIF
>	DELETE FILE (lcArchivo)
>	RETURN llRet
>ENDFUNC
>
>*----------------------------------------------------
>