LPARAMETERS tcFileName #DEFINE SW_HIDE 0 #DEFINE SW_SHOWNORMAL 1 #DEFINE SW_SHOWMINIMIZED 2 #DEFINE SW_SHOWMAXIMIZED 3 LOCAL ARRAY laJunk[1] LOCAL lnRes ********************************************************** *** Check that the library has been set up and open it if not already done. ********************************************************** lnRes = ADLLS( laJunk ) IF lnRes = 0 OR NOT ( ASCAN( laJunk, 'ShellExecute ', 1, -1, 1, 15 ) > 0) *** We don't have the function available DECLARE INTEGER ShellExecute IN shell32 ; INTEGER lnhwnd, STRING lcOperation, ; STRING lcFile, STRING lcParameters, ; STRING lcDirectory, INTEGER lnShowCmd ENDIF lnRes = ShellExecute( 0, "open", tcFileName, "", "", SW_HIDE )