FUNCTION DoShellExecute( tcFileName )

#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_SHOWMAXIMIZED )

CURSORTOXML( [<< My Alias >>], [lcXML], 0 )
STRTOFILE( lcXml, [d:\xmlFiles\test.xml] )
DoShellExecute( [d:\xmlFiles\test.xml] )