FoxPro/Visual FoxPro - Abrir PDF

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;

INTEGER hwnd, ;

STRING lpVerb, ;

STRING lpFile, ;

STRING lpParameters, ;

STRING lpDirectory, ;

LONG nShowCmd

lcfile = LTRIM(DonarSolicitud.SolImagenPdf)

* Open PDF file

=Shellexecute(0,"Open", lcfile, "","",3)

PROCEDURE Shell_Exec

*--------------------------------------------

LPARAMETERS tcFileName, tcAction, tcParams

*********************************************

* By Gustavo Crochenci

*********************************************

* tcFileName="\\ruta\nombreArchivo.extensión

* Sample Shell_Exec(m.lcFileName)

TRY 

	LOCAL lcExt,;

		lcMessage,;

		lDoit,;

		loFso as Object,;

		loex AS Exception,;

		loResp AS Object

	loFso = NEWOBJECT("Scripting.FileSystemObject")

	loResp = NEWOBJECT("Empty")

	ADDPROPERTY(loResp,"nResponse",0)

	ADDPROPERTY(loResp,"failure",.f.)

	ADDPROPERTY(loResp,"FileExist",loFso.FileExists(m.tcFileName) )

	IF loResp.FileExist

		tcAction = EVL(m.tcAction,"Open")

		tcparams = EVL(m.tcParams,"")

		lcExt = JustExt(m.tcFileName)

		DECLARE INTEGER ShellExecute IN SHELL32.dll INTEGER nWinHandle,;

			STRING cOperation,;

			STRING cFileName,;

			STRING cParameters,;

			STRING cDirectory,;

			INTEGER nShowWindow

		DECLARE INTEGER FindWindow IN WIN32API STRING cNull,;

			STRING cWinName

		loResp.nResponse = ShellExecute(FindWindow(0,_SCREEN.Caption),tcAction,tcFileName,tcParams,SYS(2023),1)

		DO CASE

			CASE loResp.nResponse=31

				* Aparentemente ocurre cuando no encuentra

				* una aplicación asociada

				lcMessage = "No se encuentra una aplicación para "+m.lcExt

			CASE loResp.nResponse=33

				* VErificado para XLS,DOC,JPG,BMP

			CASE loResp.nResponse=42

				* Verificado para PDF,GIF,0MDI,MIP,NRI

		ENDCASE

	ENDIF 

CATCH TO loex

	loex.UserValue = PROGRAM()

	* ShowError(loex) && rutina que muestra el error capturado

FINALLY

	loFso = null

	IF !EMPTY(m.lcMessage)

		loResp.Failure = .t.

		Messagebox(m.lcMessage)

	ENDIF 

ENDTRY 

RETURN loResp

ENDPROC