Launching .pdf file with Clarion button

[sgreer]

I am using Clarion 5.5 and would like to create a button in my app which would launch Adobe Acrobat Reader with a specific document so that the user may quickly access the specified document.

 

[gearhead]

!!
!! this will open the file with the associated viewer
!! pdfFile = 'c:\myPDF.pdf'
!! RetHandle = ShellExecuteA(window, "open", pdfFile, "", "", 1)
!!
RetHandle = ShellExecuteA(Handle, Op, file, Param, Path, Show)
IF RetHandle =< 32
CASE RetHandle
OF 0
RetMessage = 'Out of memory or file is corrupt running program'
OF 2
RetMessage = 'File not found'
OF 3
RetMessage = 'Path noth found'
OF 5
RetMessage = 'Sharing violation'
OF 6
RetMessage = 'Data segment error'
OF 8
RetMessage = 'Not enough memory to run program'
OF 10
RetMessage = 'Incorrect windows version'
OF 11
RetMessage = 'Invalid program file. Non windows or corrupt .exe file'
OF 12
RetMessage = 'Not a windows program'
OF 13
RetMessage = 'MS-DOS 4.0 program'
OF 14
RetMessage = 'Unknown program type'
OF 15
RetMessage = 'Can not run a real mode program'
OF 16
RetMessage = 'This program is already running and can only have one instance running'
OF 19
RetMessage = 'This is a compressed program file'
OF 20
RetMessage = 'One or more run time libraries are missing or corrupt'
OF 21
RetMessage = 'This program requires 32bit extension for Windows'
OF 31
RetMessage = 'No program associated with this file'
Else
RetMessage = ''
END
END
Return(RetMessage)