vfp编译的EXE文件，如何禁止重复打开
cCaption="家庭理财"DECLAREINTEGERFindWindowINwin32apiSTRINGcClass,STRINGcCaptionIFFindWin...
cCaption="家庭理财"
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
IF FindWindow(0,cCaption)#0
_SCREEN.CAPTION=cCaption
=MESSAGEBOX("家庭理财已经运行，请注意任务栏！",16,"提示")
QUIT
RETURN .F.
ENDIF
这个程序为什么一运行就提示 ，家庭理财已经运行，请注意任务栏。 展开
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
IF FindWindow(0,cCaption)#0
_SCREEN.CAPTION=cCaption
=MESSAGEBOX("家庭理财已经运行，请注意任务栏！",16,"提示")
QUIT
RETURN .F.
ENDIF
这个程序为什么一运行就提示 ，家庭理财已经运行，请注意任务栏。 展开
1个回答
展开全部
if wexist("表单名")
active windows 表单名
else
do form 表单名
endif
active windows 表单名
else
do form 表单名
endif
参考资料： http://bbs.bccn.net/thread-153423-1-1.html
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
