vfp成功编译后生成了exe的文件。可以正常打开，但关闭主控表单后，屏幕布中留下了下面这个窗口，怎么办呢？能不能设计个关闭命令，在关闭程序的时候把下面这个也关闭了呢？
     我的QQ：529309636，请高手们不赐赐教呀...

     我在菜单栏中加了一个“退出系统”的菜菜单，点击它时会弹出一个‘退出系统’的界面，如下图1所不。点出退出时，程序不能退出，只能点击右上角的退出按钮才能退出，此时出现了如图2所示的窗口，我的 “主程序” 如下：
“主程序”
clear screen               &&清屏幕
=setpath()                 &&设置程序路径
on shutdown clear events   &&关闭程序时，关闭事件循环
do form fm                 &&调用封面
read events                &&启动事件循环
on shutdown clear events   &&关闭系统时进行关闭事件循环
function setpath()         &&设置系统路径函数
  local lcsys16,lcprogram  &&定义两个局部变量，存放下面的信息
  lcsys16=sys(16)          &&获得执行程序文件名
  lcprogram=substr(lcsys16,at(":",lcsys16)-1)
  cd left(lcprogram,rat("\",lcprogram))
  set path to C:\XXXXX     &&设置路径
endfunc
“退出系统”按钮程序
myval=messagebox("真的要关闭应用程序吗？",4,"系统提示！")
if myval=6
    quit
    thisform.release
    _screen.visible=.t.
    _screen.top=0
    clear event
else
    nodefault
    thisform.release
endif
              

[ 本帖最后由 dochjp 于 2011-11-13 19:47 编辑 ]

是不是少什么东西造成的

主程序中没有关闭系统菜单吧？

原来 是主控表单里的 showwindow要调为 顶层表单，才显现

不知道缺少什么东西，在“退出系统”时有clear event 关闭了循环事件呀。

未经测试，楼主自己测试：
“主程序”
clear screen               &&清屏幕
=setpath()                 &&设置程序路径
on shutdown do myQuit   &&关闭程序时，关闭事件循环
do form fm                 &&调用封面
read events                &&启动事件循环
*on shutdown clear events   &&多余
function setpath()         &&设置系统路径函数
  local lcsys16,lcprogram  &&定义两个局部变量，存放下面的信息
  lcsys16=sys(16)          &&获得执行程序文件名
  lcprogram=substr(lcsys16,at(":",lcsys16)-1)
  cd left(lcprogram,rat("\",lcprogram))
  set path to C:\XXXXX     &&设置路径
endfunc

PROCEDURE myQuit
if messagebox("真的要关闭应用程序吗？",4,"系统提示！")=6
    clear event
    quit
else
    nodefault
    thisform.release
endif
ENDPROC

“退出系统”按钮程序
if messagebox("真的要关闭应用程序吗？",4,"系统提示！")=6
    clear event
    quit
else
    nodefault
    thisform.release
endif

不知道缺少什么东西，在“退出系统”时有clear event 关闭了循环事件呀。

在 clear event 后，加一句
QUIT
试试，不知行不行。

thisform.released
或release thisform

建个CONFIG.FPW的文件内容如下：
screen=OFF



连编时把这个文件加到其它文件下~~~

记得表单要设成顶层表单~~