如何防止同一个VFP程序被重复运行多次
编号：QA000936
建立日期: 1999年5月6日 最后修改日期：1999年5月6日
所属类别：
dunlop:
如何防止同一个VFP程序被重复运行多次？
回答:
你可以使用Windows API函数FindWindow来做。FindWindow函数需要两个参数，一个是要寻找的窗口的标题，一个是窗口的类。如果找到符合条件的窗口，该函数返回窗口句柄，如果没找到，返回0。在下面的程序中，我们假定你的软件的标题为My Application。
SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
GetWind = RegFn("FindWindow", "CC", "I")
* 将getwind的第一个参数设为0。
wclass=0
winname="My Application"
apphand=CallFn(GetWind,wclass ,winname)
*如果找到窗口，停止运行
IF apphand<>0
WAIT WINDOW ;
"你不能运行'My Application'两次!"
QUIT
ENDIF
MODIFY WINDOW screen TITLE "My Application"
WAIT WINDOW ;
"第一个'My Application'已经运行了。"
此问题由李海回答。
| |
|
|
| |
|
|
