*SHELLEX.prg
>
>LPARAMETER lcLink, lcAction, lcParms
>*
>lcAction = IIF(EMPTY(lcAction), "Open", lcAction)
>lcParms = IIF(EMPTY(lcParms), "", lcParms)
>*
>DECLARE INTEGER ShellExecute ;
>    IN SHELL32.dll ;
>    INTEGER nWinHandle, ;
>    STRING cOperation, ;
>    STRING cFileName, ;
>    STRING cParameters, ;
>    STRING cDirectory, ;
>    INTEGER nShowWindow
>*
>DECLARE INTEGER FindWindow ;
>   IN WIN32API ;
>   STRING cNull,STRING cWinName
>*
>RETURN ShellExecute(FindWindow(0, _SCREEN.caption), ;
>                    lcAction, lcLink, ;
>                    lcParms, SYS(2023), 1)