编译成EXE好象是没系统工具栏。
VFP环境可以这样试试:
CLEAR
DIMENSION aSysToolbars[12,2]
aSysToolbars[1,1] = "表单设计器"
aSysToolbars[2,1] = "常用"
aSysToolbars[3,1] = "布局"
aSysToolbars[4,1] = "查询设计器"
aSysToolbars[5,1] = "视图设计器"
aSysToolbars[6,1] = "调色板"
aSysToolbars[7,1] = "表单控件"
aSysToolbars[8,1] = "数据库设计器"
aSysToolbars[9,1] = "报表设计器"
aSysToolbars[10,1] = "报表控件"
aSysToolbars[11,1] = "打印预览"
aSysToolbars[12,1] = "维护精灵"
? "隐藏"
_HideSysToolbars(@aSysToolbars)
? "2秒后显示"
INKEY(2)
? "显示"
_ShowSysToolbars(@aSysToolbars)
? "按任一键结束"
INKEY(0)
RETURN
FUNCTION _HideSysToolbars(aSysToolbars)
LOCAL i
FOR i=1 TO ALEN(aSysToolbars,1)
IF WEXIST(aSysToolbars[i,1]) AND WVISIBLE(aSysToolbars[i,1])
aSysToolbars[i,2] = .T.
HIDE WINDOW (aSysToolbars[i,1])
ENDIF
ENDFOR
ENDFUNC
FUNCTION _ShowSysToolbars(aSysToolbars)
LOCAL i
FOR i=1 TO ALEN(aSysToolbars,1)
IF WEXIST(aSysToolbars[i,1]) AND aSysToolbars[i,2]
SHOW WINDOW (aSysToolbars[i,1])
ENDIF
ENDFOR
ENDFUNC