>LOCAL txt >lnRetVal = ShellExecute(...) >DO CASE > CASE lnRetVal = 0 > txt = "The operating system is out of memory or resources." > CASE lnRetVal = 2 > txt = "The specified file was not found" > CASE lnRetVal = 3 > txt = "The specified path was not found." > CASE lnRetVal = 5 > txt = "Windows 95 only: The operating system denied access to the specified file" > CASE lnRetVal = 8 > txt = "Windows 95 only: There was not enough memory to complete the operation." > CASE lnRetVal = 10 > txt = "Wrong Windows version" > CASE lnRetVal = 11 > txt = "The .EXE file is invalid (non-Win32 .EXE or error in .EXE image)." > CASE lnRetVal = 12 > txt = "Application was designed for a different operating system" > CASE lnRetVal = 13 > txt = "Application was designed for MS-DOS 4.0" > CASE lnRetVal = 15 > txt = "Attempt to load a real-mode program" > CASE lnRetVal = 16 > txt = "Attempt to load a second instance of an application with non-readonly data segments". > CASE lnRetVal = 19 > txt = "Attempt to load a compressed application file" > CASE lnRetVal = 20 > txt = "Dynamic-link library (DLL) file failure" > CASE lnRetVal = 26 > txt = "A sharing violation occurred." > CASE lnRetVal = 27 > txt = "The filename association is incomplete or invalid." > CASE lnRetVal = 28 > txt = "The DDE transaction could not be completed because the request timed out." > CASE lnRetVal = 29 > txt = "The DDE transaction failed." > CASE lnRetVal = 30 > txt = "The DDE transaction could not be completed because other DDE transactions were being processed." > CASE lnRetVal = 31 > txt = "There is no application associated with the given filename extension." > CASE lnRetVal = 32 > txt = "Windows 95 only: The specified dynamic-link library was not found." > CASE lnRetVal > 0 > txt = "Undocumented" >ENDCASE > >IF NOT EMPTY(txt) > MessageBox( txt) >ENDIF > >>
>>>>&& ----------------------------------------------------------------- >>>>&& Show the PDF file >>>>DECLARE Integer ShellExecute IN "Shell32.dll" ; >>>> INTEGER hwnd, ; >>>> STRING lpVerb, ; >>>> STRING lpFILE, ; >>>> STRING lpParameters ,; >>>> STRING lpDirectory, ; >>>> LONG nShowCmd >>>>lcPDFFile = lcPdf >>>>=Shellexecute(0,"Open",lcPdfFile,"","",3) >>>>&& ----------------------------------------------------------------- >>>>>>>
>>>lnRetVal =Shellexecute(0,"Open",lcPdfFile,"","",3) >>>WAIT WINDOW lnRetVal >>>