如果防止vfp编译的可执行文件因为连续点击而多次执行？解决方法

如果防止vfp编译的可执行文件因为连续点击而多次执行？
突然发现这个问题，以前没有研究过，请各位老师、大侠指导一下，谢谢了！

------解决方案--------------------

SQL code

*——避免多次运行程序
*——声明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

------解决方案--------------------

探讨
SQL code

*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="商品经营管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&……

------解决方案--------------------
前几天回复过类似问题
http://topic.****.net/u/20120323/10/17fd0fee-b115-4517-9d4b-329ba6551116.html
------解决方案--------------------
1楼的代码放在主程序中，放在DO FORM A.SCX 前面
------解决方案--------------------

探讨
引用:
SQL code

*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="商品经营管理系统"
IF .NOT. FindWindow(0,lpWindowNa……

如果防止vfp编译的可执行文件因为连续点击而多次执行？解决方法

相关推荐