编程入门网-如何避免多个例程的运行

如何避免多个例程的运行
出处:网络

 
将以下代码放在主程序开始处：
cCaption="程序名称 - 红虎工作室"
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,cCaption)#0
_screen.caption=cCaption
=messagebox("此程序已经运行，请查看任务栏！",16,"系统资源省着点用哦！ ^_^ ")
return .f.
endif
_screen.caption=cCaption

 

[返回]

本文来自编程入门网：http://www.bianceng.cn/VFPwz/cyjs/js12.htm