请高手指教在VFP中怎样防止一个程序被打开两次

Question

可以用一个public的逻辑型变量，初始化为.f.，程序运行后将该变量设为.t.
程序退出后再将该变量设为.f.,可防止一个程序被运行两次。如果是在菜单中调用，则可
通过这个逻辑型变量使得程序运行后跳过该菜单。

Answer 1

将以下代码加至主程序最前面,OK!
declare integer FindWindow IN USER32.DLL AS Find_Window STRING,STRING
LOCAL cTitle
cTitle='***管理系统'
if find_window(0,ctitle)!=0
=messagebox("本程序已运行",48)
return
endif

Answer 2

DECLARE INTEGER FindWindow IN WIN32API STRING,STRING 
LOCAL cTitle
cTitle=_screen.caption 
if FindWindow(0,cTitle)<>0 
...=messagebox("程序已运行,无需重复！",48)
endif