为FOXPRO系统菜单添加DOSSHELL选项

江西  罗南
1995-12-01

        FOXPRO为用户提供了多种修改系统菜单的方法，可以很方便地添加、删除或修改系统菜单中的主菜单和子菜单。据此，我们在File子菜单中添加了一个DOSSHELL选项。
        源程序如下，输入完毕，按CTRL+O将其编译为.FXP目标文件。
        *功能：在FOXPRO For DOS系统菜单的File子菜单中添加DOSSHELL选项
        SET TALK OFF
        CLEAR
        DEFINE BAR 1BEFORE _MEI_QUIT OF _MFILE PROMPT '\<DOS Shell'
        ON SELECT BAR 1 OF _MFILE DO SHELL IN DOSSHELL
        PROCEDURE SHELL
        ?'Please type EXIT to return t FOXPRO...'
        RUN COMMAND.COM
        CLEAR
        RETURN
        *功能：在FOXPRO For WINDOWS系统菜单中添加DOSSHELL选项
        SET TALK OFF
        CLEAR
        DEFINE BAR 1 BEFORD _MFI_QUIT OF_MSM_FILE PROMPT "\<DOS Shell'
        ON SELECT BAR 1 OF_MSM_FILE DO SHELL IN DOSSHELL
        PROCEDURE SHELL
        RUN DOSPRMPT.PIF
        CLEAR
        RETURN
        为了能够在启动FOXPRO时自动运行该程序，还需要在其配置文件CONFIG.FP(FOR DOS版本)或CONFIG.FPW(FOR WINDOWS版本)中加入下面一行：
        COMMADN=DO DOSSHELL.FXP
        (江西  罗南)
 
 