fox26apgmr
Programmer
Anyone know how to open a PDF file from a Foxprow program?
Thanks
Thanks
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
declare INTEGER ShellExecute in shell32 INTEGER handle, STRING @ oper, ;
STRING @ ifile, STRING @ iparam, STRING @ ipath, INTEGER showcmd
lcFileName = "c:\temp\document0.pdf"
=shellexecute(0,"open",lcFileName,"","c:\",1)
*declare INTEGER ShellExecute in shell32 INTEGER handle, STRING @ oper, ;
STRING @ ifile, STRING @ iparam, STRING @ ipath, INTEGER showcmd
*lcFileName = "c:\temp\ca.pdf"
*=shellexecute(0,"open",lcFileName,"","c:\",1)
SET PROCEDURE TO CALL32
SET LIBRARY TO home()+"FOXTOOLS" ADDITIVE
lhcall32=reg32("ShellExecute","shell32.dll","ippppi")
*** Set parameters and return type for the function
*** Return RegFn()/CallFn() function handle.
*** Note you always call Call32, using a different
*** parameter list each time, depending on the function
*** that is called.
lhShellEx=RegFP("LCCCCL","L")
lcFileName = "c:\temp\CA.pdf"
lnResult = callfn(lhShellEx,0,"open",lcFileName,"","c:\",1,lhcall32)
? lnResult
CLEAR ALL
SET LIBRARY TO