谢谢版主回复指教。。我设立了主文件:
* 寻找窗口标题
Declare Integer FindWindow In WIN32API String, String
***启动登录窗口***
If FindWindow(0,'杜非特获取曾用名V1.0') # 0
Messagebox('程序已经运行 ',0+64,'提示',3500)
Clear All && 清除全部内存变量
Quit
Else
*进行各项系统设置
Public Z当前目录 As 'A'
Z当前目录 = Sys(5) + Sys(2003)
Set Default To &Z当前目录 && 设置当前目录为默认目录
*定义窗口全局变量
Public Z项目例程
*开始运行
Do Form 项目例程.SCX Name Z项目例程 Noshow
*进入事务处理
Read Events
Endif
窗口在QueryUnload事件写了:
Clear Dlls && 结束全部DLL
Close Tables All && 关闭所有的表文件
Release ALL && 结束事务
Clear Events && 结束事务处理
Quit
我太菜了。。属于半罐水。。但以前编的程序现在打开又没有问题。。遭整蒙了。。