用vfp8.0编辑的软件，2个问题请教各位高手：1，在运行软件时如何通过在任务栏上点右键能真正的彻底关闭软件  
2，怎么实现不重复打开正在运行的软件     在使用过程中会经常出现在使用其他软件带来的操作习惯

问题一：在顶层表单的DESTROY事件中

thisform.release
clear events
quit

问题二：在主程序MAIN.PRG中

SET....
....
*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
LPWINDOWNAME="进销存管理程序"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
   =MESSAGEBOX("程序已经运行了",48,"提示信息")
   QUIT
ENDIF
_SCREEN.CAPTION=LPWINDOWNAME

2，怎么实现不重复打开正在运行的软件
试试

主程序中加入如下代码：
cCaption="XXX系统"
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
  IF FindWindow(0,cCaption)#0
     _SCREEN.CAPTION=cCaption
     =MESSAGEBOX("程序已经运行！",16,"提示")
     QUIT
     RETURN .F.
  ENDIF

谢谢sdta 前辈，问题2解决了 但问题1 更改后，又出现新的问题了
****与显示首页或者是软件重启时 起冲突了，什么原因，怎么解决
If _Screen.FormCount > 1
    For i=_Screen.FormCount To 1 Step -1
       If _Screen.Forms(i).Name !=ALLTRIM(thisform.name)
       _Screen.Forms(i).release
    ENDIF
    Next
Endif

[ 本帖最后由 nmhfs 于 2013-4-1 12:41 编辑 ]

[ 本帖最后由 nmhfs 于 2013-4-1 12:42 编辑 ]

表单的属性是如何设置的，最好上传表单

通过findwindow查找 来禁止一个实例的多次运行  有时候靠不住

用CreateMutex吧

楼主是否用了表单集？

没有用表单集，showwindow=2 其他表单均为1，windowtype=0  titlebar=0   使用的是命令按钮 release关闭

[ 本帖最后由 nmhfs 于 2013-4-2 13:45 编辑 ]

在主程序调用主表单前 加上 ON SHUTDOWN do shutproc   如：
...................
ON SHUTDOWN do shutproc   
do form  你的主表单
ON SHUTDOWN
...........
主程序最后加上这过程
PROCEDURE shutproc
    CLOSE all
    CLOSE DATABASES
    CLEAR events
    quit