1个回答
展开全部
检查App.PrevInstance 如不是0,表示已有实例在运行了。
比如从Main启动的:
sub main()
if App.PrevInstance=0 then
form1.show'打开主窗口
end if
end sub
比如从Main启动的:
sub main()
if App.PrevInstance=0 then
form1.show'打开主窗口
end if
end sub
追问
这个知道,在改名后就无效。。。
追答
在程序目录下建个文件,退出时把它删除,如果再次打开检查文件存在时就不要打开了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询