坛子里有懂 VFP 的吗？

Taste-Life

请教一个问题，怎样控制程序的重载入？

carechen

刚出道时候用过几天，不懂。

大头儿子的大头

你是指控制程序不重复运行吧？
使用API函数：
if GlobalFindAtom('PROGRAM_RUNNING') = 0 then   //寻找（PROGRAM＿RUNNING）全局原子量
    fAtom := GlobalAddAtom('PROGRAM_RUNNING')　　如果没有找到，设置此原子量
else
    { 如果有同的程序则退出 }

在程序退出时：执行GlobalDeleteAtom(fAtom)
对于API在VFP中的调用，请查阅MSDN。

yeying

1 在 FoxPro For Windows 中
SET LIBRARY TO SYS(2004)+"foxtools.fll" ADDITIVE
* FindWindow() 使用两个参数并在找到时返回窗口句柄 HWND.
GetWind = RegFn("FindWindow", "CC", "I")
* 设置第一个调用参数为 0, null.
wclass=0
winname="我的程序"
apphand=CallFn(GetWind,wclass ,winname)
* 如果调用成功, 停止处理.

  
IF apphand<>0
   WAIT WINDOW ;
     "不能运行窗口 '我的程序' 的另一个实例!"
   QUIT
ENDIF
MODIFY WINDOW screen TITLE "我的程序"
WAIT WINDOW "窗口 '我的程序' 的第一个实例正在运行."

2 在 Visual FoxPro 中
DECLARE integer FindWindow in Win32Api String, String

wclass=0
winname="我的程序"

apphand = FindWindow(wclass ,winname)

* 如果调用成功, 停止处理.
IF apphand<>0
    WAIT WINDOW "不能运行窗口 '我的程序' 的另一个实例!"
    QUIT
ENDIF
MODIFY WINDOW screen TITLE "我的程序"
WAIT WINDOW "窗口 '我的程序' 的第一个实例正在运行."