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

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

[解决办法]

SQL code

*——避免多次运行程序*——声明API函数“FindWindow”DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowNamelpWindowName="商品经营管理系统"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.csdn.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……